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Summary of Amendments 
for VSE/VSAM VSAM Logic, Volume 2 


Summary of Amendments 
for LY24-5192-1 
Release 2 


This major revision contains information about the follow- 
ing items for this release: 


¢ CA split integrity: If a control area split in a KSDS is 
interrupted by a system failure, the file can have du- 
plicate records that were copied into it. The control 
area split integrity enhancement detects that the dupli- 
cate data exists and erases the original versions of the 
copied records. 


e Share option 4 improvements: The number of I/O's 
required in keyed processing of a KSDS is reduced by 
locking a sequence set record rather than a data con- 
trol area. Also, there is a time limit that prevents se- 
quential processing from locking out direct requests 
for an excessively long time. 


e Space Management for SAM Feature: This manual 
documents hooks in Record Management for the 
Space Management for SAM Feature. For informa- 
tion about the internal logic of that feature, refer to 
VSE/VSAM Space Management for SAM Feature 
Logic, LY24-5204. 

Two new control blocks have been added to facilitate proc- 

essing of share option 4 files: ; 

e «©The File Sharing Work Area (SHRW) is used as a 
work area in processing of SHAREOPTIONS(4) files. 

¢ The Hold Block (THB) replaces the Track Hold Block 
(THB) control block and contains information neces- 
sary to lock a control area of a SHAREOPTIONS(4) 
file during updates and inserts. 

Some of the existing control blocks have had fields 

changed, deleted, and added to support the new items for 

VSE/VSAM Release 2. 

Two new modules (IKQLNA and IKQIOD) and four new 

macros (IKQSHRW, LOCK, MODDTL, and UNLOCK) 

are now used by Record Management for processing of 
files, 

Various editorial changes are also included to improve the 

usefulness of this manual. 
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Preface 


This logic manual is one of three volumes providing detailed information 
about VSE/VSAM. The three volumes are: 


VSE/VSAM VSAM Logic, Volume 1: Catalog Management, Open/Close, 
DADSM, IIP, Control Block Manipulation, LY24-5191 


VSE/VSAM VSAM Logic, Volume 2: Record Management, LY24-5192 
VSE/VSAM Access Method Services Logic, LY24-5195 


This volume contains all VSAM record management, I/O management, 
buffer management and EOV logic documentation. 


This manual is mainly intended for persons involved in program mainte- 
nance and for system programmers who are altering the program design. 
Logic information is not necessary for the operation of the programs de- 
scribed. 


This manual and the code it supports should be viewed as a maintenance 
set. This means that the module prologues and comments contain certain 
types of information and that this manual contains other kinds of informa- 
tion. Thus, the listings provide the description of the internal logic of 
modules, and the manual uses Method of Operations diagrams to show what 
the functions of VSAM are and how the modules work together to carry out 
those functions. The term data set is used in this manual instead of file to 
conform to the program listings. 


Effective use of this publication requires an understanding of system opera- 
tion, PL/S language, assembler language, and its associated macros. 


Organization of This Publication 


Required Publications 


This publication is organized in the following manner: 

¢ Section 1. Introduction describes the major components of VSAM. 

e Section 2. Method of Operation contains HIPO diagrams describing 
record management, buffer management, I/O management, and EOV. 


e Section 3. Program Organization describes the information contained in 
VSAM program listings and the relationship of the program structures 
to the issued macro. 


e Section 4. Directory contains lists of phases, components, modules, 
routines, catalog external entry points, and data areas. 

e Section 5. Data Areas describes control blocks used by VSAM record 
management, I/O management, and buffer management. 

e Section 6. Diagnostic Aids contains diagnostic aids, such as error codes. 

¢ Glossary defines terms relevant to VSAM. 

e Index is a subject index to the publication. 


The following publications should be read and understood before using this 
publication: 


VSE/VSAM General Information, GC24-5143, explains basic VSAM 
concepts and facilities and how to use them. 
Using VSE/VSAM Commands and Macros, SC24-5144, tells how to 
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Related Publications 


Using This Publication 


code VSAM macros in application programs and describes VSAM data 
management. Access Method Services commands and their use are also 
described. 


Other publications that may be of interest in conjunction with this manual 
are: 


VSE/VSAM Programmer’s Reference, SC24-5145, describes installation 
and operating procedures, sysgen information, storage estimates, debug- 
ging techniques, performance tips, and recovery procedures. 
VSE/VSAM VSAM Logic, Volume 1, LY24-5191, describes the logic of 
VSAM catalog management, open/close, DADSM, ISAM Interface 
Program, and control block manipulation. 


VSE/VSAM Access Method Services Logic, LY24-5195 documents the 
logic of Access Method Services. 


VSE/VSAM Space Management for SAM Feature Logic, LY24-5204, 
describes the interfaces between Record Management and that feature. 


VSE/VSAM Documentation Subset, SC24-5191, contains a subset of the 
information contained in Using VSE/VSAM Commands and Macros. 


VSE/VSAM Messages and Codes, SC24-5146, includes all messages and 
codes originated by VSAM and Access Method Services. 


This publication is designed to be used with the VSAM program listings. 
The diagrams in Method of Operation describe the major functions per- 
formed by VSAM; these diagrams are intended to be your key to a module 
name (and routine name, as appropriate) in the listing. See the Method of 
Operation chapter for a description of how to read these diagrams. For 
information on what is available in the program listings, see the chapter 
Program Organization. 


The module directory in the Directory chapter lists the modules by symbolic 
name (all of which start with IKQ, IIP, IGGO, $S, or $$B) and contains page 
references to the appropriate method of operation diagram or program 
structure that applies to each module. If you wish to see how modules are 
grouped according to component, see the component directory. The routine 
directory, where relevant, further shows how the modules are subdivided 
into routines. 


The Index to this volume contains a list of all VSAM modules and indicates 
whether each is documented in Volume 1, Volume 2, or both. 
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AMDSB 
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BCB 

BCR 

BHD 
BKPHD 
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BWD) 
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BSPH 

BUFF 
BUFH 


CA 
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CB 
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CIDF 
CINV 
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CIW) 
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CM 
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DADSM 
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DSCB 
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DSORG 
DTF 


ECB 
EDB 
EOD 


allocation chain 

access method control block 

AMS Catalog communication area 
argument control entry 

address 

addressed accessing 

alternate index 

access method block list 

access method control block structure 
access method data statistics block 
access method define the file (ISAM only) 
anchor table 

address range definition block 
allocation unit 


buffer control block 
base cluster record 
buffer header 

block pool header 
backward 


block 

buffer subpool header 
buffer 

buffer header 


control area 

catalog 

catalog auxiliary work area 
control block 

catalog communications area 
command control block 
catalog control record 
control interval 

control interval definition field 
control interval 

control interval work area 


count-key-data 
catalog management 


catalog management services 
control interval 
communications region 
channel program 

channel program area 
channel program area header 
catalog parameter list 
catalog recovery area 

catalog field parameter list 
catalog field vector table 
catalog parameter list 
common VTOC handler 


direct-access device space management 
data definition name 


direct processing 

DASD label 

data set 

dynamic storage area 

data set control block (in VSE, VTOC 
label) 

data set name 


data set organization 
define the file 


event control block 
extent definition block 
end of data 
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Fn 
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FS 


FVT 
FWD 
FXL 


GEN 
GO 
GOP 


ID 
IIP 
I/O 
ISAM 
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RSCB 
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entry-sequenced data set 
execute channel program 
exit list 


fixed block architecture 
field control and data block 
full key search 

format n 


field parameter list 
free space 


field vector table 
forward 
fix list 


generic key search 
group occurrence 
group occurrence pointer 


identifier 

ISAM interface program 
input/output 

indexed sequential access method 


job information block 
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search on key greater or equal 
key range determination routine 
key-sequenced data set 

keyword type code 


locate 

logical-to-physical mapping block 
last record 

logical unit block 


move 


number 

note string position 
no user buffer 

no update 


open ACB list 
open/close/end of volume 
open work area 


program information block 
programming language/system 
placeholder 

program status word 

pointer 

physical unit block 


record area block 

relative byte address 

record definition field 
replication 
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request parameter list 
relative-record data set 
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SHRW 
SKP 
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THB 
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xii 


search compressed index block 
software end of file 

sequential 

file sharing work area 

skip sequential 

sequence set 

supervisor call 
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transfer in channel 


user buffer 
user catalog 
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UPD 
USB 
USVR 


VOLID 
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VSRT 
VTOC 


WA 


update mode (or data modify) 
upgrade set block 
user Security verification routine 


volume identification 
BLDVRP parameter list 
virtual storage access method 
VSAM shared resource table 
volume table of contents 


work area 
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Section 1. Introduction 


Virtual Storage Access Method (VSAM) is an access method that operates 
with direct-access storage to provide fast storage and retrieval of data. 


VSAM is divided into modules, which are logically grouped into compo- 
nents. 


e¢ Record management, which reads and writes records in response to 
user-issued VSAM and ISAM macro instructions. This component also 
reads and writes records for the catalog management component. 


e End of Volume, which mounts volumes and allocates space. End of 
Volume modifies the existing control blocks to reflect the newly mount- 
ed volumes and newly allocated space. 


e Service aids, which enable program maintenance and Field Engineering 
personnel to obtain dumps, maintain VTOC labels, and load phases. 


The following components are documented in VSE/VSAM VSAM Logic, 
Volume 1. 


¢ Control block manipulation, which allows the user program to create, 
modify, display, and test the contents of some VSAM control blocks (the 
ACB, EXLST, and RPL, which are described under Data Areas in this 
publication), and to build or delete a VSAM resource pool. 


e Open, which connects a user’s program to a VSAM data set and builds 
the control blocks required to permit the user to read from and write to 
the data set. 


e ISAM interface, which allows the user program to issue ISAM macro 
instructions to process records in a VSAM data set. 


e Catalog management, which writes and updates catalog records. Cata- 
log management processes the catalog to obtain information for Open, 
Close, end-of-volume, and Access Method Services. 


e¢ DADSM, which allows the system to maintain VTOC labels for data 
spaces. In VSAM, DADSM is used by the catalog to create and delete 
data spaces, both unique and nonunique. 


e Close, which disconnects a user’s program from a data set and releases 
the data set’s control blocks built by Open. Close also updates statistics 
in the VSAM catalog. 


For a list of the modules in these components, see the Directory in this 
publication. 
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Section 2. Method of Operation 


Reading Method of Operation Diagrams 
Method of operation diagrams depict the internal functions of a program- 
ming system, in this case, an access method. The internal functions are 
categorized by the macro instructions issued by the user, such as the 
GENCB, MODCB, OPEN, GET, PUT, CLOSE and ENDREQ macro 
instructions. 


Diagram AB shows the basic organization of the method of operation 
diagrams according to the macro instructions mentioned above. References 
lead from the high-level charts showing subfunctions required to carry a 
request to its completion. 


Note the relationship of function (exemplified by the macro instructions) to 
component. Starting with an OPEN issued by the user, a logical progression 
is made from Open modules to supporting Catalog modules. When a record 
management macro instruction such as PUT is issued by the user, not only 
the Record Management modules are involved (which include modules that 
perform buffer and I/O management and end-of-volume processing) but 
the Catalog modules which, in turn, call upon the DADSM modules for 
space management. 


The diagrams contain three blocks of information: input, processing, and 
output. The left-hand side of the diagram shows the data that serves as 
input to the processing steps on the center of the diagram, and the right- 
hand side shows the data that is output from the processing steps. Input is 
anything significant that program processing steps refer to or get. Processing 
is the steps that support the function or subfunction represented by the 
diagram. Output is any significant change effected by a processing step, for 
example, register contents, or control blocks created or modified. The 
processing steps are numbered and the numbers correspond to notes, if any, 
on the pages following the appropriate diagram(s). If notes are given, they 

' include references to modules, routines, and/or labels shown on the extreme 
right-hand side of the diagram. These references are your link to the pro- 
gram listings. Figure 2.1 shows the symbols used in these diagrams and 
describes their meaning. 


As an example of how to interpret a typical method of operation diagram, 
see page | of Diagram CG, which graphically depicts the control interval 
space reclamation function. The left-hand side of the diagram shows the 
significant input required by the processing steps shown in the diagram. 
The data-set information in the AMDSB is input to steps 3, 4, and 6 in the 
processing portion of the diagram. The processing portion of the diagram 
shows the processing steps required to fulfill the function described by the 
diagram. Note that the function described by one diagram may be per- 
formed by one or more VSAM modules; that is, the diagrams not only show 
program flow, but show the subfunctions that are required to carry out the 
function and that are subsequently shown in separate diagrams. 


Note that some diagrams have more than one entry point. 

The notes provide details about the processing shown in the diagram. For 
example, note 13 tells how index entries are found (in step 13). The dia- 
grams are numbered in a sequence that follows the pattern ccn, where the 


first character, in general, represents a part of VSAM such as buffer man- 
agement, the second character represents a category within buffer manage- 
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ment, and the number represents the first, second, third, etc., page of that 
particular diagram. Thus, DG1I would be the first page (1) of the share 
option 4 hold function for buffer management (D). See the list of diagrams 
for details. 


DATA MOVE -- shows input and output of data to and from the 
processing steps 


FLOW OF ACTION -- shows the flow of action through the process- 
ing steps 


ERROR FLOW -- shows the flow of action in the case of an error or 
for unusual conditions. This symbol is normally used only in the 
steps where an error causes a change of flow. Further error proc- 
essing uses the normal symbols for flow of action. 


POINTERS -- these are the interconnections between the control 
blocks and data areas 


REFERENCE INDICATOR -- means refer to this item 


1/0 INDICATOR -- used where arrows had to be interrupted, or 
where one input or output is used for several steps. Circles within 
one diagram with identical letters are regarded as being logically 
connected. 


ONPAGE CONNECTOR -- used together with the flow of action 
symbols to indicate a branch, within the same diagram, to the step 
number within the circle, regardless of whether the diagram is on 
more than one page. 


OFFPAGE CONNECTOR -- used for backward reference between 
diagrams. 


ADDRESS -- indicates, within control blocks, that this field contains 
the address of the specified field. 


In the input and output colums of some of the HIPO diagrams, 
control block sub-fields that are contained within a larger field are 
indicated by dashed lines. In this example, sub-fields WKABB, 
WKACC, and WKAHH are all contained within the field PLHWAREA. 
(In this particular case, these sub-fields are mapped by a different 
mapping macro, which accounts for their labels beginning with 





Figure 2.1 Symbols used on method of operation diagrams 
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Diagram AAI. Method of Operation Contents 


VSAM 
overview 


See Diagram 
AB 


Control 
block Open 


ISAM Catalog Catalog 


Record 


management Close 


‘services 


See Diagrams 
BA-FI 


*See VSE/VSAM VSAM Logic, Volume 1 


interface management 


manipulation management 
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Diagram AB1. VSAM Overview 






Control block manipulation macros processing ACB, RPL. or EXLST 


User-issued VSAM 
GENCB macro Build a new control block. 


MODCB,SHOWCEB or 
TESTCB macro 
(SVC 65) 


User-supplied 
argument control 
entries 


Modify, display, or test a control block. 





Open processing 






User's VSAM 
data set 


(open) 


SS 
PUT macro 
: 


t 
VSAM user's partition ee 
] 





User's record area | 44 and 


[Breed 1 


RPL 


—J TCLOSE macro 


(SVC 2) 


or automatic 
close @y 


2.4 


User’s VSAM 


ta set 
(closed or sharable) 


SS er ieeuld VSAM 





User-issued VSAM 
OPEN macro 
(SVC 2) 











User’s record 
area 





GET macro Retrieve a record. 













ee macro Delete a record. binalpby sa 
ane eis ime asec soe em oo (open) 


Store a new or updated record. 





! POINT macro 


| ENDREQ macro Set or reset string positioning. 


_--+? 


— ~~ Tor GET 
| pOINT Pgirect) 


Close processing 







1 User-issued VSAM 


Disconnect the user’s processin ram from its 
| CLOSE or 7 a 


Le associated VSAM data set. 


ee ee ee oe User's VSAM data 
set (closed or sharable) 
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Diagram BAI. Record Management Contents 


Record 


management 
overview 


See Diagram BB 














POINT: 
Position 

VSAM at 
a record 


GET: PUT ADD: PUT UPDATE VERIFY: 
Retrieve Store a new or ISAM- Reestablish 
a record record issued PUT high-used 

in LOCATE and high-key 

mode: Store RBAs 

an updated 

record 


See Diagram BE See Diagram BF See Diagram BG See Diagram BH See Diagram BI See Diagram BT See Diagram CS See Diagram FF 


RCLOSE or WRTBFR: 
ENDREQ: Write 
Clean-up and deferred 
1/0 completion buffers 











GETNXT: 
Get next 

buffer and 
read ahead 





Buffer 
manager 


See Diagrams DA- 
DM 





Purge 
buffer 


/0 
manager 


See Diagrams EA- 
EW 


See Diagram BS See Diagram FC 
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Diagram BB1. Record Management Overview 










RPL 


RPLENDRO 


RPLHLD 


. Is the request an ENDREQ? 
No Yes 


© 2. Test to see if RPL is held by another request. 


Hold it Already held 


-———— —— —© 3. Store request-type code into RPL and initialize, 
| control block registers. 





RO 
Request 
type code 


4. Is the request an RCLOSE? 











- 
No em (42) 
RPL eee Yes (42) 
ee 4% 
eee ee 5, Test to see if second or subsequent RPLs in RPL 
RPLACB 2 chain is held by another request. 
~ 
= Hold it 
~ 
sO Already held 
~ 
sew 


6. Does each RPL in RPL chain have the same 
ACB address? 


Yes No 









) 
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Module 
or label 


IKQVSM 
vsmoo1 















R10 R12 
R11 R13 


RPL 
Ped 


VSM010 
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Diagram BB2. Record Management Overview 





Establish PLH-RPL relationships if not already 
established 





























RPL 
<= 7. ‘Is the RPL string 1D number equal to or less 
than (but not 0) the number of strings (that is, 
equal to the ID of one of the PLHs)? 
§ Yes (12) 
AMBL Assign a free PLH to the RPL. 
eal 
-_—— Is LSR specified for this data set? 
feat aa Yes No (2) 
AMDSB % 


10. Initialize the PLH assigned from the resource 
pool with data-specific information. 





11. Increment the count of active PLHs in the 
resource pool. 





Store address of user’s save area into PLH. 





13. Has an ENDREQ been received? 


4 Yes EEE: 


Analyze request options and parameters. 






User issued 
POINT 
ET 


Was an internal error code set during request 
analysis? 


No Yes 
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Module 
or label 
VSM020 
PLHVEROO 
PLH 
PLHACB 
| PLHDCSZ PLHINTOO 
PLHXCSZ 
PLH 
PLHSADDR 
VSMO040 
VSM042 
IKQRQA 
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Diagram BB3. Record Management Overview 


B:) 


PL 
Is this an output-type request (PUT, ERASE)? 


RPLREQ Yes No 


¥ 


AMBL 
AMBLUSB . Does an upgrade set exist? 
et mnam tn eel eae ae 
Perform upgrade processing. 
AMBL 


See Diagram BD, Alternate Index Upgrade. 


. Access via path for GET or POINT? 
ee al 






Yes No 
RPL § 
aoe ee eae wr er . Sequential GET and ‘‘Duplicate Key follows”? 
Ceenearien RD paeuagiany a “ss 
oa 

& 

RPL Request processing based on request type 

. Perform the function requested: 

rT s*”F See Diagram BE, POINT: Position VSAM Data 


Record. 


' See Diagram BF, GET: Retrieve a Record. 


See Diagram BG, PUT ADD: Store a New Record. 


See Diagram BH, PUT UPDATE or ISAM-issued 
PUT in LOCATE Mode: Store an Updated Record. 





See Diagram Bi, ERASE: Delete a Record. 
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Diagram BB4. Record Management Overview 





and High-key RBAs. 
PLH 


PLHFLG1 












See Diagram CF, Get Control Interval by key. 





. 4s JRN exit active? 
Yes No 


23. Do journaling. 





See Diagram FD, JRNAD exit: Journal a 


Transaction. 
---- GET via path? 





| Yes No (2°) 
y 


\" 


25. If ‘““workarea too smal 
larger workarea. 


is indicated, set up a 






R15 2 
Error code 


/N\ 


26. Error detected? 


Yes No 


RPL a 
———-f™ 27. For PUT or ERASE requests perform upgrade 
Vcees: hos a reset processing if upgrade set is present. 








See Diagram BD, Alternate Index Upgrade. 


Read the AIX record once more. 


See Diagram BF, GET: Retrieve a Record. 
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See Diagram BT, VERIFY: Reestablish High-used 


See Diagram FF, WRTBFR: Write Deferred Buffers. 





























PLHAIXWA 
PLHAIXWL 









PLHSWT1 
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Module 
or label 


VSM0475 


VSM048 


VSMO050 


2.9 


Diagram BB5. Record Management Overview 




























































AME Module 
Arc ad ase 
-— . For a GET request via a path perform the access VSMO55 
Rees to the base cluster. 
7 
it See Diagram BC. Path Processing. 
7 

RPLREQ 

= . If JRNAD exit is active, do journaling. 
- 
- i it: 

PLH - See Diagram FO, JRNAD exit: Journal a ada (AMDSB) ) REG 10 IKOQJRN 

PLHJAN Transaction. 
a addr (AMBL) | REG 11 

_—— : 
ae . Reload control block pointers. REG 12 | VSMO59 
_-— ‘32. Are there any more RPLs to process on the chain VSM060 
aaa associated with this request? 
No Yes mam (1;) 
PLH € 
— ——f 33. Does the PLH contain information for further 
ae requests 
No Yes 

AMBL & 
———-4e 34. Is LSR specified for this data set? 
eee Vee | ie — 
Data and 
Index BHDs | Ge) 

BHDSKDQ 
-- . Return buffers (BCBs) from the BHDs to the 
resource pool. 
aeaeen See Diagram FH, terminate a request. PLH IKQBFB40 


PLHUSE 






. Free the PLH. 
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Diagram BB6. Record Management Overview 
































































RPHD Module 
or label 
37. If LSR was specified, decrement the number of Lee 
active PLHs by one. 
38. Post the ECB of the PLH. aaa 
Common request processing 
39. Take normal exit. => Return 15 VSMO66 
. Handle error recovery and set error feedback PL VSM069 
information. VSM070 
ats fee 
a See Diagram CQ Error Handler. 
—_-—— . Take error exit. VSMO30 
| Errorexit | See Diagram CR, Error Exit. 
RCLOSE processing PLH 
42. If correct PLH is not found in string ID, indicate SeHVEROD 
| a wait and point at PLH ENDREQ request lock aes WAITPO00 
7 (to prevent PLH from being seized by another 
7 request). 
pie fe 
ass 
\ ra ENDREQ processing RPL 
43. If correct PLH is found in string 1D, indicate a Minha 
wait and point at RPL lock (to prevent RPL WAITPOOO 


from being seized by another PLH). 
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Diagram BB7. Record Management Overview 








Module 
R13 or label 
——— . ess of user’ @ area into PLH. 
| Store address of user’s sav i seg canine 









PLHSADDR 
PLHUSE 
PLHENDRQ 







Set PLH lock and wait for |/O operations to 
take place before PLH is freed. 






See Diagram CS, Record Management Close: Do 
all 1/O operations required on this PLH. 








Was LSR specified for this data set? 


i No 


Data and 
tndex BHDs 
















BCB 


BHOSKDQ 






-— Return BCBs to the resource pool. BUFUSE 


BHDISTF 










See Diagram FH, terminate a request. 







PLH 


RPL 


RPLHLD 
RPLHLD2 


Decrement the number of active PLHs by one. 










Free PLH and RPLs. 















Was there another error? 


“hi Yes ase (40) 





Return 
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Diagram BC1. Path Processing 













Ri 
TAIX record 


2. Is this request a POINT? 
No Yes 


4 


3. Sequential processing? 
Yes No 


: 
‘ | ; 
4. \s the first BCR-pointer in the record to be 


selected? 
Yes 


4 


$5. Calculate address of first BCR-pointer in AIX 
record. 


I} 


AMDSB(A) 


AMDKEYLN KW 





No 


PLH(A) 


PLHAIXPT 


AIX record eee ye 









Li —— —  — — — — —/-6 6. Calculate address of next BCR-pointer in this 
AIX record. 


. Test if repositioning to previous BCR-pointer is 
required. 


Yes 


4 


. Reposition to previous pointer. 






No 







PLH(A} 







PLHAIXPN 
. Is it the last BCR-pointer in this AlX record? 
No Yes 


4 


10. Indicate that duplicate key follows. 





! 


Notes for Diagram BC1 


General note for sequential processing 


During sequential processing, the base records are returned in the 
order of the BCR pointers in the AlX record, regardless of the 
“direction” of sequential processing (forward or backward). 


Control block notation 


RPL(A), PLH(A), etc.: control blocks referring to the path entry 
(AIX). 


RPL(B), PLH(B), etc.: control blocks referring to the base cluster. 


3. If sequential processing is not specified, only the first base record 
associated with a given AIX key is retrieved. The indicator ‘duplicate 
key follows” is set if applicable. 


7. Repositioning to the previous BCR pointer is required only if the 
previous sequential request ended with a ‘‘no record found” condition 
in the base cluster. To prevent the user from simply skipping this BCR 
pointer (which represents a lack of compatibility between AIX and 
base cluster), the PLH, which had been incremented in the previous 
request to point to the next BCR pointer, is returned to the faulty 
BCR pointer. A series of sequential GETs will thus return a series of 
“no record found” conditions, all for the same base record. 
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Module 
or label 


IKQAIX 
Atx000 


AlX030 


AIX040 


AIX055 
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Diagram BC2. Path Processing 






























RPLIA) R1 Module 
ieee, os a 11. Find PLH referring to the base cluster. or lebe 
T “Awauia) 2 core 
ne Se 7 

PLH(A) | \o" 

ae 


] AMBLBC 
PLHecpLH FS | 





R10 R11 -—-——_—— . Save control block pointers referring to the path | PLHAIXSV | 
TAMBL(A) entry cluster. ay 


R12 R13 





















| TRPLIA) TPLHIA) R10 Rit 
(e) + aMBLIe} 
PLH(B) Ri ; R12 R13 
Baas | tPLH(B) | — — — — Fe 13. Set up control block pointers referring to the 
—— S base cluster. 
ee dl o 
aa a . Is this request a POINT? 

























—_ oe 
a zee ne R10 R11 
ACB(B) § tTAMOSBIA) | | TAMBLIA) 
Store previous request information into PLH(B) fiz fe 
ora : : 
— (4) and reload control block registers pointing to tRPLIA) TPLHIA) 






AIX path entry cluster. 











APL(B 


| RPLOPT? | 
RPLOPT2 





AMDATTA1 









Initialize RPL(B) for a DIRECT GET request 
with options: 

KEYED for KSDS or 
ADDRESSED for ESDS 


AIX063 


. Read the record from the base cluster. 
PLH(B) 


PLHJRN pen ana a 


See Diagram BF, GET: Retrieve a Record. 






. Is journaling specified? 


Yes No 


Notes for Diagram BC2 


11. Adirect pointer (PLHBCPLH) is used for local shared resources. 
Otherwise the base cluster PLH is indexed by the AMBL (base cluster). 


14, A POINT request is completed when the PLH is positioned to the 
correct BCR pointer. A GET request continues and actually retrieves 
the base cluster record indicated by the current BCR pointer. 
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Diagram BC3. Path Processing 



































Module 
. Journal the transaction. or label 
See Diagram FD, JRNAD exit: Journal a 
Transaction. 
Base record . No record found or end-of-data or invalid 
AIX key} AIX key RBA? 
field | field No Yes R15 
~ ae emmb(22) 
AMDSBI(A ~ 
Se a Pointer without 
_~— associated base 
ANDOHXRKE SS SS Se 21. Ensure that the record just read is the one record AIX073 
a 2 required. 
aaa 
Correct record found? 
aes Yes No 
Set error code R10 R11 
PLH(B) t AMDSBIA) TAMBL(A) 
2 


R13 Ri 





. Reload control block pointers referring to the 
path entry cluster. 







PLHAIXSV = 








. Error detected? 
No Yes Ga Return RPL(A) 


} 
24. Store RBA into AIX RPL and indicate “duplicate 
key follows” if correct. 


Return 
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Diagram BD1. Alternate Index Upgrade 


RPL(B) 


RPLFDB3) -— —— — — — 










13 





PLHUPG2 
USB 
USBWALEN 


USBWAPTR 








Notes for Diagram BD1 


. Has an 1/O error occurred ? 


. ls the alternate index empty ? 


. ls this a call for upgrade reset processing? 


Yes No 


Y 


Yes No 


$ 


Indicate “incorrect upgrade set’. 


Y$ 3 


. For multiple string processing, serialize use of the 


USB by means of the supervisor LOCK macro. 


See Diagram DL, !ssue LOCK macro. 


. Get address of PLH(U) and RPL(U), and save 


control block pointers referring to the base cluster. 


. Move the address and length of the user’s work 


area into the RPL(U). 


. Get the address of the next ACB(U) which 


points to the alternate index to be upgraded. 


. End of upgrade set? 


No Yes 


No Yes 


$ ¢ 


4. The LOCK macro (rather than a test-and-set lock) serializes use of the 
USB so that attempts to do multiple concurrent upgrades under the same 
VSE task can be detected and a return code issued. Because the LOCK 
macro is used, all multiple string upgrades over the same base cluster 
throughout the system are serialized, 


The LOCK name for USB serialization is the standard LOCK name for 


the base cluster (see note for step 1 of Diagram DG), except that the 
last two bytes are X‘0004’. 
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RPL(B) 


RPLFDB2 


PLH(U) 


PLHAIXSV 


RPLBUFL 
RPLAREA 


PLHUPGP1 


~~ D 
C -) 
- = 
= = 


RPL(B) is the RPL that 
Pertains to the base. 


RPL(U) is the RPL that 


pertains to the upgrade set. 


Module 
or label 


IKQUPG 
UPGO000 


UPGO0010 


IKQBFC40 


UPG0100 


UPG1000 
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Diagram BD2. Alternate Index Upgrade 








RPLREQ 
RPLAREA 
PLH(B) : 
PLHOBAD 
PLHDRO 


PLHUPGP1 







AMDSB(B) 
AMDATTR1 
AMDRKP 


. Is the request a PUT UPDATE? 


§ No ommp(s) 


Calculate the position of the AIX key field within 
the base record: 


1) in the user’s work area (updating record). 
2) in the buffer (record to be updated). 


Are these key fields equal? 
No Yes 


q 


. Has the BCR pointer already been determined? 


§ Yes 


Is the base cluster a KSDS? 


Yes No mic) 
. Calculate the address of the prime key in the 


user’s work area (for UPDATE and INSERT) or 
in the buffer (for ERASE). 


Is the request a PUT UPDATE? 


No 
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Module 
or label 
UPG1020 
PLH(B) 
PLHPGAD 
UPG2030 
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Diagram BD3. Alternate Index Upgrade 


2.18 



















































Module 
or label 
- Store the address of the previously read record UPG2040 
into PLH(B). 
. Locate the last control interval in the base cluster. 
ce | aoe | CIDF | See Diagram BG, PUT ADD: Store a New Record. 
Le eee ee me me . Does this last control interval contain the last 
segment of a spanned record? 
No Yes a> (21) 
RPL(B) 4 
F F PLH(B) 
— ———Ffe 20. Check if the last control interval has enough free ae 
=a space for the new record. 
4 “s emp (25) 
. Calculate the address (RBA) of the next control 
interval. 
. Is the record to be added a spanned record? 
Yes No mmp(25) 
23. Is there enough free space in the last control area UPG2070 
for the record? 
No Yes 
24. Calculate the RBA of the next control area. UPG2090 


. Store the RBA in PLH(B). 
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Diagram BD4. Alternate Index Upgrade 


Module 
or label 

















R10 R11 


PLH(B) 

































PLHUPGPT Re ee ee 26. Set up new pointers to the control blocks of the R12 R13 
aaa PLH(U) alternate index to be upgraded. *RPLIU) +PLHIU) 
es Pe 
RPL(U 


USB 






CEE I 






















Persea’ 5 PLAGE 
30 i en rr 
fase | . Connect the RPL(U) to the current ACB(U) and ‘ 

7 a prepare the RPL(U) for a keyed, direct GET for 
acalu U Update, 
ad pe 
4 

ie, ow 
= PLM) 







. Initialize the PLH(U). 






Data and index 


AMDSB(U) 







. ls a pointer to be deleted? UPG3030 


(Is the user’s request PUT UPDATE, PUT 
INSERT and upgrade reset in process, or 
ERASE and upgrade reset not in progress?) 


' — 


Delete a pointer 











RPL(U) 


RPLARG 













30. Get the address of the AIX key field within the UPG3040 


user’s work area or the buffer. 







31. Read the AIX record. 





See Diagram BF, GET: Retrieve a Record. 







RPLAREA 
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Diagram BDS5. Alternate Index Upgrade 




























































F : Modul 
Delete a pointer (continued) or lobe 
R16 
_-— 32. Error code “no record found” or “end of data” 
NN returned? 
N 
\ No Yes 
. Is the work area too small? 
RPL(U) USBWAPTR Yes No RPL(U) 
ea ee eer tee hea ars 
RPLBUFL 
ABLARER \— —— Free the work area, if necessary, and obtain a {Haetaaes— UPG3047 
| RPLAREA AM new one large enough to receive the 
record, een ey 
. Read the AIX record again. UPG3048 
See Diagram BF, GET: Retrieve a Record. 
Scan the record for the BCR pointer to be UPG3060 
deleted. 
Pointer found? 
Yes No me (42) 
5 (42) 
37. Is it the only BCR pointer in this AIX record? UPG3070 


2.20 
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. Delete the BCR pointer. 








q Ne m0) 


RPL(U) 










Store the request-type code “ERASE” into ; 
RPLIUI ieee 







AIX record 
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Diagram BD6. Alternate Index Upgrade 


RPL(B) 







RPLREQ 
RPLAREA 


PLH(B) 
PLHDRO 
PLHDBAD 












Delete a pointer (continued) 


40. Calculate the new record length and store the 
request-type code “PUT UPDATE” into RPL(U). 


41. Write back the updated record or erase it. 


See Diagram BH, PUT UPDATE: Store an 


ae Sees aan waa Vemma ~ updated record or 
PLH(U) “ a Diagram BI, ERASE: Delete a Record. 
PLHSWT1 _— . 1s a pointer to be inserted? 
aes (Is the user’s request PUT UPDATE, PUT 


INSERT and upgrade reset not in progress, or 
ERASE and upgrade reset in progress?) 


§ No m7) 


Q Add a pointer 


43. Get the address of the AIX key field within the 
user’s work area or the buffer. 


Rel. key position 


44. Does the AIX have the “UNIQUE” attribute? 


AMDSB(U) 7 No Vas 
Eres oe 
7 
4 
oe oe 45. Read the AIX record. 


See Diagram BF, GET: Retrieve a Record. 


46. Error code “no record found” returned? 


/ No Yes 


R15 ye $ 


_- 47. 1s the work area too small? 


Yes No 
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RAPLIU) 
RPLRLEN 


RPLREQ 





RPL(U) 
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Module 
or label 


RPLARG UPG3130 


UPG3140 
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Diagram BD7. Alternate Index Upgrade 










Module 


























— ae ae we ee - Free the work area, if necessary, and obtain a UPG3145 
od Gee co - \9 new one large enough to receive the record. 
AMDSB(U) se 
ae es ye . Read the AIX record again. UPG3147 
RPL(U) y, 

feed oes / See Diagram BF, GET: Retrieve a Record. 

| RPLBUFL |/ 

xO) 

RPLRLEN 
Scan the record for the BCR pointer which is to UPG3150 





be added. 
Pointer found? 


;" —é 


51. Add anew BCR pointer to the AIX record. 

















|__|tecrx|tecrs |tecry| | 


RPL(U) 


|} RPLRLEN | 







. Calculate the new record length. UPG3160 














. ts the record length greater than the permissible 
maximum, or is the maximum number of pointers 
exceeded? (32, 767) 


i Yes 


Write back the updated record. 








UPG3165 










See Diagram BH, PUT UPDATE: Store an 
updated record. 
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Diagram BD8. Alternate Index Upgrade 


AMDSB(B) 





PLH(U) 


PLHAIXSV 
PLHSWT1 
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Add a pointer (continued) 


55. Build a new AIX record and initialize RPL(U) 


for a PUT INSERT request. 


. Insert the new AIX record. 


See Diagram BG, PUT ADD: Store a New 
Record. 


. Free the data and index buffers. 


See Diagram DA, GETBUFF: Free a buffer. 


- Reload the control block pointers to point to the 


base cluster. amp?) 


. Free the data and index buffers. 


See Diagram DA, GETBUFF: Free a buffer. 


. Save the address of PLH(U) and reload the 


control blocks to point to the base cluster. 


. Did the error occur during upgrade reset 


processing? 


Yes =—s—sNo emp (63) 
$ 


. Indicate the presence of an inconsistent AlX in 


the upgrade set. 


=>) 





Modul 
AIX record o iabel 
pointer 
UPG3170 

RPLIU 

RPLREQ 

RPLRLEN 
awe, eee 










R10 R11 
tT AMDSB(B) t AMBL(B) 
R12 R13 


R4 


R10 


tAMDSB(B) UPG3210 


RU 


12 UPG3250 


R13 


vo 





RPL(B) 


RPLFOB2 
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Diagram BD9. Alternate Index Upgrade 




























Module 
or label 
; PLH(B) USB 
Error handling (continued) Peet a 
Initiate upgrade reset processing. 
| [punuecr2 
64. Was the user’s request PUT UPDATE? 


Yes No 


q 


65. Have any modifications been made to the AIX 
that caused the error? 


Yes No 


tACB(U) 


J 






R10 


R11 


[tamerivr | 


R12 


R13 

































aie) OL 


| ea 


RPL(U) 










Reload the control blocks to point to the AIX 
that caused the error. 













67. Has any upgrading been carried out? UPG5000 
Yes No 
is | (0) 
USBWAPTR = RELIG) 68. Is there a work area to be freed? 
Pee ipo. =a) Z Yes No 
RPLAREA 7 is 
RPLBUFL —~ as! 
RPL(B) Free the work area. 
feat ene RIS 
_ Load the function and error codes. 
Paes 71, In the case of multiple string processing, UPG5020 
* -dequeue the USB as a system resource. 
See Diagram DM, Issue UNLOCK Macro. IKQBFCS5O 


Return 
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Diagram BE1. POINT: Position VSAM Data Record 


User-issued 
POINT * 
User-buffer processing? 


ry No eme>(; ) 









*Diagram BB 










RPL 7 


RPLOPT2 













— Store user-supplied RBA into PLH. 
We emE(20) 
\ \ 3. Is keyed processing being performed? 
\ 


(©) 


Data AMDSB 


AMDKEYLN 


AMDATTR1 


5 No mp0) 


4. Get address and length of the user-supplied key 
or relative record number. - 






RRDS processing? 


Indicate that the index must be searched from 































feces eo the highest to lowest level for the desired key. 
Is positioning to last record required? 
7 Yes No e>(11) 
PLH 7S 
rains (2 % 
peiaoed XN 8. Set previous request key to X’FF...F’. 
N 
“XN 


em (11) 


9. ts positioning to last record required? 


Yes No ommem( 1) 


Notes for Diagram BE1 


4. The user-supplied argument is a key for keyed processing or a 4-byte 
relative record number for relative record processing. 


7.-9. Positioning to last record is required for backward processing 
with the option LRD. 


8. For keyed processing of a KSDS, positioning to the last record is 
achieved by searching the index for the maximum possible key 
(X’FF...FF’). 


9.-10. For addressed or relative record processing, positioning past the 
last record is first carried out, using the high water mark of the 
highest key range as an RBA. The last record is then found by using 
LOCATE PREVIOUS. 













PLHXRBA 
PLHPKEY 


Module 
or label 


(KQGPT 


GPT030 


GPTO60 


GPT065 
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Diagram BE2. POINT: Position VSAM Data Record 
































ARDB-chain = 10. Simulate PLH positioning beyond last record. PLH Saal 
eS (17) GPTO70 
| [anonnes a -— 
_o = 11. Locate record or control interval by key, relative 





record number, or RBA. 


See Diagram BP, LOCATE DIRECT. 


: RO 
control) 
R1 


. Check return code: 





PLHINDEX 











R2 y, Record found 
Address of 7 . PLHXCNV 
y, No record found, next higher located m=>(i3) PLHXETRY 





PLHFLAG 


Ri5 


No record found, end of CNV reached 


Invalid RBA specified SCP Return 















RPL 


RPLOPT1 
RPLOPT2 
RPLREQ 


-invalid RBA 







13. No record found, next higher located: 





—e BWD EP Return 


= ARDS GET a Return 
_-» KEQ EP Return 


14. No record found, end of CNV reached: 


5 


| R15 
—— -no record found 


Ris 


Error code 





-© End of data -end of data 







BWD, GET SEO 


PLHFLAG 


PLHSWT1 





7 R15 
// -no record found 
4/7 
117 A7 ve KGE 





Rid 


Error code 





Other - 


-no record found 
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Diagram BE3. POINT: Position VSAM Data Record 


















































































PLH Module 
ee es ieee ais 15. For generic key, locate next record relative to or label 
current PLH positioning. PLH 
PLHINDEX See Diagram BL, LOCATE NEXT. O/Error code P| 
PLHFLAG R15 PLHDATA 
\ — —+ ~» Error detected Gx Return PLHINDEX 
\ RIS 
Nee -» End of data reached CEP Return Error code —_|-end of data 
RPL 
RPLARG == Check if next record is in domain of generic key. 
= R15 
a Not in domain o> Return Error code —_‘[ -no record found 
Data buffer ae 
recorded key In domain PLH 
PLH 
| 
Locate next record relative to current PLH 
_ positioning. PLHFLAG 
_— 
= ; 
ria See Diagram BL, LOCATE NEXT (FWD processing), or' R15 GPT155 
“on See Diagram BN, LOCATE PREVIOUS (BKWD O/Error code 
ee procesing). 
‘ae 
— — + —» Error detected Gx Return 
PLHINDEX 
—-— —e Previous data CA requested 
PLHFLAG ——— R15 
—-{— - End of data CP Return -end of data 


Record found 


18. If previous control area is required for keyed 
backward processing, a high level index search 


for previous request key is started. 








R1 







Key length 





PLH 


PLHPKEY 







Notes for Diagram BE3 


17.-18. During keyed backward processing of a KSDS, LOCATE PRE- 
VIOUS can step backwards only until it reached the beginning 
of a sequence set record, which corresponds to the start of a 
data CA. LOCATE PREVIOUS then returns a “previous data 
CA required” condition, and stores the lowest key of the 
current CA in the previous request key field. LOCATE DIRECT 
and INDEX SEARCH will then carry out a top-down search 
and transition to the previous sequence set record. 
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Diagram BE4. POINT: Position VSAM Data Record 































Module 
data BCB or label 
BUFFLAG2 — os 19. Has new version of data CNV been written? 
GPT170 
No Yes | @) PLH 
4 
20. Save the request-type code, request options, GPT300 
request RBA and, if keyed processing, the 


request key or relative record number; set up 
PLH flags. 


Return 
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Diagram BF1. GET: Retrieve a Record 



























































User-issued vee 
GET * *Diagrams BB, BC, BD ” 
If the request isa GET UPD for a data set and shore IKQGPT 
: F es Stes control 
exclusive control is specified, then indicate that GPTO10 
7 the appropriate data control area, and for keyed 
7 processing, its associated sequence set control 
RPL 7 interval, are to be held in exclusive control until 
RPLREQ the update operation is completed. 
RPLARG 
(A) Shere Sequential GET? GPT020 
RPLKEYL 
N No Yes 
“\N 
‘L$ 
3. Keyed request? GPT030 
R1 
Yes No emm>('2) 
length 
Bee 
fiteeee a R2 
AMDKEYLN -— 4. Get address and length of user-supplied key or . TE? GPTO40 
AMDATTRI relative record number. 


AMDHLRBA Skip -sequential GET and PLH is positioned? 


‘a 


6. Is request sequence valid? 


ves No <> Return 


9 


7. nd of data or |/O error encountered during 
previous request? 


Yes No 














R15 


error code 






“sequence error 













PLHPKEY 


PLHFLAG 
PLHSWT1 


GPTO50 


Notes for Diagram BF 1 


2. Adirect or skip sequential GET does not require prepositioning; 
it implicitly positions to the correct record or control interval before 
transferring it to the user’s area. 


4. The key is supplied as argument. The length is the full key length 
(in AMDSB) for FKS and the KEYLEN supplied by the user for a 
generic key. 


6. Fora positioned SKP request, the given key has to be in ascending 
key sequence with respect to the previous request. 
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Diagram BF2. GET: Retrieve a Record 


AMDSB 


AMDATTR1 


—_—— 8. 
PLH 9. 
mae! 
PLHSWT1 —_— 10. 
aan 
\ 
\ 
\] 1. 
12. 








ARDB 
ARDHRBA a 13. 
14, 
RPL 












RPLDIR 
RPLKEY 


AMDSB 


AMDDST 


2.30 







Relative record data set? 
No Yes 


4 


Indicate top down index search. 


Is last record requested? 
Yes No 


9 


Use previous request key as argument and set it 
to maximum (all X’FF’). 


| 


Is last record requested? 
Yes No 


4 


Set request argument to RBA of first unused 
data control interval. 


u 


Share option 4? 
Yes No 


4 


Direct processing? 
Yes No 


¥ 


Keyed access to a KSDS? 


Pty 
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Module 
or label 
GPTO60 
PLH 
PLHXRBA 
PLHPKEY 
R2 
targument 
GPT065 
PLHDRBA 
GPT070 
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Diagram BF3. GET: Retrieve a Record 













Is a hold in effect on the index? 


ae ‘ No emp (22) 


PLHHELD 


PLHDSW 


PLHHELD 













18. Indicate that hold should be broken. 











PLHXSW1 


19. Is ahold in effect on the data? 
Yes No emmm>(22) 
4 PLHDSW1 


PLHBRKHD 


















20. Indicate that hold should be broken. 


amb 


21. Check if hold has been in effect for an 
excessively long time. 








See Diagram DK, Share Option 4 Hold 


RO Time-Out. 


share 
control 
ane ene a= == aap Ge eam 


RO 


. Locate desired record or control interval. 


See Diagram BP, LOCATE DIRECT: 
Locate Record or Control Interval. 





key length 





RO 


return code — am 






PLHDATA 





. Check return code: 


address of 
argument 






Record found 





No record found, next 
higher located 


No record found, end of CNV 


HL 


Invalid RBA specified 


Notes for Diagram BF3 


22. For a keyed request for KSDS other than a positioned SKP request, 
the search is top-down; for a positioned SKP request, the searcg is 
generally horizontal, starting with the sequence set control interval 
for the previous request. If the previous request had an I/O error or 
an end-of-data condition, however, the index search is top-down. 


PLHBRKHD AN 


Module 
or label 


GPTO71 


GPT072 


IKQBFC30 


GPT073 
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Diagram BF4, GET: Retrieve a Record 


2.32 





Module 


24. No record found next higher located: or label 






Backward processing SEE Return 
RRDS GET ECP Return 
KEQ CCD Return 


KGE 


25. No record found, end of CNV reached: 


End of data’ > Return 


BWD, GET SEQ 







R16 


error code 








-no record found 








GPTO80 






R15 


error code 





-end of data 







BWD, LRD 







BWD, other 







KGE 





R15 


error code 


PLH 


PLHDATA 
PLHINDEX 











-no record found 








Generic key 


Other MP Return 


26. For generic key, locate next record relative to 
current PLH positioning. 


























See Diagram BL, LOCATE NEXT. 


Error detected EP Return 
End of data reached > Return 






-end of data or 
-error code from 
locate next 


R15 
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Diagram BF5. GET: Retrieve a Record 









Module 
or label 


PLH 
data PLH 







Check if next record is in domain of generic key. 


Not in domain > Return 
In domain 


28. CNV processing? 


i 7 


29. Restart required or exclusive control required and 
and not yet obtained? 


Yes No mum (2) 


R15 


error code 















no record found 





argument 








data control interval 


RPL 


GPTOSO 








RO 


PLH 


PLHDATA 


PLHINDEX 


R15 


error code 


PLHRST 


PLHRREAD 
PLHPKEY 


. Locate previous record again and get it in 
PLHDRRBA 


exclusive control if required. 
PLHEOD 














See Diagram BP, LOCATE DIRECT. 


Error detected > Return 


Check return code: 
RRDS, end of data i> Return 
No record found, end of CNV same (2) 


No record found, next higher located 


emm>(s2) 





error code from locate 
next 


RO 
— 


GPT120 


end of data 


Record found 


Invalid RBA CEI Return 


Invalid RBA 


Notes for Diagram BF5 


29. The restart flag (PLHRST) is set if an error was detected on the 
preceding request, or if another string has written either the data or 
index Cl used to satisfy the previous request. 


The reread flag (PLHRREAD) is set if another string has written the 
data Cl used to satisfy the request, or if a share option 4 hold is to be 
released and reacquired during backward processing. If PLHRREAD 
is set, a top-down index search is not required. 


(Repositioning can be accomplished by doing a search only at the 
sequence set level.) 
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Diagram BF6. GET: Retrieve a Record 


















Module 
PLH . % or label 
ww 32. \s this backward processing? GPT155 
User’s data set 
ane No Yes si as: 
User’s data set 4 
ts 
\ 33. Advance PLH to next record or CNV. (8 > 
\ \ See Diagram BL, LOCATE NEXT. 


\ Error detected CeCe Return 


\ \ No error maE(35) 
\1 \ R15 
\] 34. Set PLH to previous record or CNV. 


Data buffer \ See Diagram BN, LOCATE PREVIOUS. G 


\ Error detected o> Return 


35. Is transition to previous control area required? 


Vv 


LH 


Yes No mp (37) 
§ PLHPKEY 
R2 


36. Set previous request key as search argument. aes 


= 
GPT160 
(} © 37. End of data reached? end of data 
No Yes CECE Return 


PLH § 
PLHRREAD poe 38. Is it necessary to release and reacquire share 
option 4 exclusive control? 


BCB 4g Yes mmmm>(') GPT170 
BUFFLAG2 =a 39. Has a new version of the current control interval 


et been written. 
Ves Ne 


Notes for Diagram BF6 


35.-36. During keyed backward processing of a KSDS, LOCATE 
PREVIOUS can step backwards only until it reaches the 
beginning of a sequence set record, which corresponds to the 
start of a data CA. LOCATE PREVIOUS then references a 
previous data CA required condition, and stores the lowest key 
of the current CA in the previous request key field. LOCATE 
DIRECT and INDEX SEARCH will then carry out a top-down 
search and transition to the previous sequence set record. 


38. The PLHRREAD may have been set by IKQLCP to indicate 
that share option 4 exclusive control has been held for an 
excessively long time and should be released and reacquired. 
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Diagram BF7. GET: Retrieve a Record 








Module 


BCB or label 


BUFFLAG1 






PLH 


PLHRREAD 








40. Invalidate buffer and restart request. 
Buffer 









41. Relative record data set? 





Yes No 


¥ 





ae 































Is there a valid record in the slot? GPT175 
Yes No ee a )) 
43. User buffer processing? GPT180 
No Yes 
44. \s the record to be retrieved spanned? 
PLH No Yes 
data buffer 4 User's area 
aa 
-— 45. Make record or control interval available to user. GPT185 
IkaATV 
\ eee 
aaa \ See Diagram CT, Move Record. 
\ 
\ User area too small > Return 
\ 
No error 
Make spanned record available to user. 
See Diagram BJ, Retrieve Spanned Records. IKQSRG 









i No error me> Return 









error code 


Inconsistent spanned record and exclusive control 
not obtained? 


Yes No 





Notes for Diagram BF7 


41. Control is also given to step 43 if CNV access is being used. 


45. If move mode is specified and not user buffer processing, the data 
record or control interval is transferred from the VSAM buffer to 
the user’s area. 


46. Spanned record GET moves the first segment into the user’s area, 
then reads the next control interval and moves the next segment into 
the user’s area and so on until all segments have been moved. 


tt 
\ 
NN 
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Diagram BF8. GET: Retrieve a Record 


Module 
or label 










. Indicate exclusive control required and restart 


request. 










. Set up statistics and provide RPL feedback 
information. 


AMDSB 


AMDLRETR 











. Save request-type code, request options, and 
request RBA. 







PLH 


PLHRTC 
PLHOPT 
PLHDRBA 
PLHPKEY 
PLHFLAG 


















. For keyed processing, save request key 
(key or RBA of record retrieved). 













. For UPD, path processing, LOC, UBF, or 
backward processing, indicate PLH points to 
previous record. 





aamma> Return 





GPT350 







PLH 

—— . For any other GET, advance PLH for next 
yey on, aa , record or control interval overlapped. 

RO ge See Diagram BL, LOCATE NEXT. 


Return 


Notes for Diagram BF8 


49. The RBA of the transferred data record or control interval is provided 
in the RPL as well as the fength of the record or control} interval 
retrieved. The number of records retrieved is the statistics updated 
in the AMDSB. 


53. VSAM will be positioned to the next control interval in an overlapped 
manner, that is, !/O operations (read ahead) are started but completion 
is not-waited for, in order to overlap the 1/O operation with the user’s 
processing of the record or contro! interval just retrieved, so as to 
improve throughout. 
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Diagram BG1. PUT ADD: Store a New Record 


User issued or abel 
PUT ADD * | *Diagrams BB, BD yonenan 
Is data set empty? 


4 No emp (4 ) 


2. Indicate first PUT and end-of-data. 




























PLHEOD 


PLHFSR 
Relative record data set? 


j o 


































Sequential PUT insert issued against a path? SRTO10 
Yes No ems) 
_ q 
5. \s alternate key sequence correct? 
R15 
a _— ee lial sequence error 
a 
P+ _- Keyed insert? SRTO16 
No Yes 
PLH a ‘ 
aes Addressed or CNV insert processing aaa 
—-—— — — 7. Indicate end-of-data. i (naar 
8. Calculate RBA of last CNV containing data and 
AMDSE - store RBA. 
ee 


AMDCINV = 
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Diagram BG2. PUT ADD: Store a New Record 












































cat Addressed or CNV insert processing (continued) arch 
— —-{ te 9, CNV - processing? SRT020 
§ Yes 
10. Is PLH positioned to the required control interval? 
Yes No . eum>(3) 
data AMOSB 
[anoLoad + ——tb11, Loed mode 
No Yes 
PLH 12. Is required CNV in exclusive control? 
Rear 
i . 
ee |e 
eee el 13. Read last data CNV if not yet connected with | SRTO30 
oh 
See Diagram DA, GETBUFF: Free data buffer 
and read last CNV. Baas 
PLH Error PLH 
-— . Position PLH to free space. SRTO040 
hari eS fe a 
R9 


. Was the request issued by UPGRADE routine? 


No Yes SEE Return 


[Calero — — 
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Diagram BG3. PUT ADD: Store a New Record 


RO Keyed insert processing an bariksed 
r 











. If not load mode, indicate that exclusive control 


























AMDSB Se eS is required for ti: data CA into which the new SATOSB 
a record is to be inserted. 
----- . Relative record data set? 
bee Yes = No (KSDS) a aC) 
9 
“N 






Keyed insert processing of RRDS Ai 


Length RR# 





18. Get length of relative record number. 





19. 





Sequential insert? 


§ Yes 


20. Get address of user supplied relative record 
number. 















-—— . Is SKP specified and is PLH positioned? 


PLHPKEY Yes No aE (22) 
PLHRTC 
DIR specified, 


or PLH not positioned 


. ts relative record number in ascending sequence 
with respect to the previous relative record 
number (unless previous request was a POINT or 

ERASE, in which case the relative record 

number may be equal)? 


Yes No ECR Return 


R11 
Length RR¥ 
R2 











R15 








“sequence error 
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Diagram BG4. PUT ADD: Store a New Record 






R1 


Length RR# 


R2 


TPLHPKEY 





PLH 







PLHFLAG 
PLHDSW1 
PLHPKEY 






—_ 
—_— 
—_— oo 


~ 
N 
~N 
NN 
PLH 
PLHRTC === 


PLH 
PLHFLAG —_— — — 
PLHDATA 
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Keyed insert processing (continued) 





Keyed insert processing of RRDS (continued) 






23. Locate slot directly for direct and skip sequential 
insert into RRDS. 


See Diagram BP, LOCATE DIRECT: Locate 
insertion slot. 












PLH 


PLHDATA 


R15 
















ace Return 


24. Is PLH not positioned, or is an exceptional 
condition indicated, or is exclusive control 
Yes No 


required and not obtained? 


25. Locate the previous request slot. 


See Diagram BP, LOCATE DIRECT: Locate 
insertion slot. 


Error returned 









No error returned 







PLH 


PLHFLAG 
PLHDATA 


R15 


Return code 



























==> Return 


. Is the previous request slot the one needed 
No Yes 


(previous request is POINT)? 


27. Indicate PLH positioned to previous slot. 


Error returned 




















PLH 


PLHFLAG 














28. Position PLH to the next slot if the PLH is 
positioned to the previous slot. 






PLHDATA 






See Diagram BL, LOCATE NEXT: Locate next 


slot. 
Error returned (CEC Return 





Module 
or label 


SRTO50 


SRT052 


SRTO054 


SRTO56 
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Diagram BGS. PUT ADD: Store a New Record 


Keyed insert processing (continued) 










PLH Keyed insert processing of RRDS (continued) oF labol 
_— 1s end of data reached? SRTOSS 







PLHDBAD 
PLHDROF 






No Yes emp (46) 
4 


30. Is there already a valid record in the slot? 


No 


CEP Return 












[ona suite | wor |_| 


RPL 


RPLAREA AMDRKP 













Ri5 







duplicate record 









































































ri 
Get address and length of key of record to be Uanach ot SRTO6O 
R2 
_— Is SEQ or SKP specified and is PLH positioned? 
d 
RPLOPT1 PLHFLAG Yes No os 
pene | See Direct specified, 
or PLH not positioned 
RI ; 
Length << Is key in record to be inserted in ascending key 
(full key) PLHPKEY sequence with respect to previous key (unless 
| PLHPKEY | previous request was a POINT or ERASE, in 
R2 which case the key may be equal)? R15 
t Key of es | -sequence error 
given record Yes No Se P Return (key is low) 
-duplicate record 
(key is equal) 
PLH 
_ Is exceptional condition indicated for the SRTO70 





previous request? 


No Yes 





PLHDATA 
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Diagram BG6. PUT ADD: Store a New Record 


Keyed insert processing (continued) 


Pee Keyed insert processing of KSDS (continued) 


PLHFLAG 










35. Does the PLH point to previous record, and is 
previous record last in CNV? 


. Point the PLH to the next record if the PLH 
points to the previous record. 


PLHDATA 


See Diagram BL, LOCATE NEXT: Point the 


PLH to the next record. 
Error 


SEP Return 


Is the current PLH position the same as the 
position at which the new record is to be 
inserted? 


rt Yes 


Is exclusive control required, and is data CA not 
yet held? 


No Yes 
Record to be 


sAgeeted conc eer ae ee . Compare given key with key in index entry in 


aoe order to check whether the record to be inserted 
PLHINDEX 


belongs in the CNV pointed to by PLH. 


Record 


belongs 
Record does not 
to CNY belong to CNV 








Data CNV 


next record 


User's area 


new record 








RO PLH 


PLHDSW1 













Index entry 


Is PLH positioned to previous record? 


| Yes No 





Module 
or label 
PLH 
PLHFLAG 
SRTO80 
SRTO9O 
SRT100 
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Diagram BG7. PUT ADD: Store a New Record 


on Keyed insert processing (continued) 
Keyed insert processing of KSDS (continued) 
-_-— 41. Position PLH to free space. PLH 


See 







Ri 


PLH 
PLHDBAD 


No record found 





Record found Return code |-duplicate 


record 


Is end of data reached? 


Yes No 


AMDSB H 
i Set end of data flag. ae 
Indicate a top down index search starting with 
oe al the highest level requested for a direct locate of PLHDATA 

/ insertion point; transfer high-level RBA into PLH. PLHINDEX 
AMBL . 7 
2 a 7 . Perform a horizontal index search starting at 
index CNV pointed to by PLH index RBA, or a 
ee ees oy top down index search if indicated. 


See Diagram BP, LOCATE DIRECT: Locate 
insertion point. 


Return code 


2 
i 


Common processing and exit 


vu 


LH 
PLHSPAN 
PLHXPTR 
PLHRCD 


RPL PLH 
RPLOPT1 PLHEDCSZ 


RPLRCD 


-—— 46. If not CNV processing and record does not fit 
into one CNV, indicate spanned record and 
prepare for insertion of first segment. 





p!] 


PL 


RPLRLEN 


S) 
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Module 
or label 


SRT110 
IKQSCN 


SRT120 


SRT130 


SRT140 


SRT150 
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Diagram BG8. PUT ADD: Store a New Record 


47. Insert new record. S abel 


See Diagram BQ, Modify a Data Control 
Interval. 


7-— 2-+ — —eRestart insert for ESDS am") 
R15 rue 
~<-- -1—f--—- Restart insert for RRDS 
N 





vn 
\ \=>0-+——- Error detected 
‘ EC Return 
—— Continue 
PLH AMDSB 

AMDLNLR PLHEOD & _ TAMDLNLR 

BMEEIRES ; EEDES -» 48. If CNV is not specified, update statistics. AMDLIREC SRT163 
|__| PLHBRBA ee 
i | ae . RPL 

49. Store RBA of inserted record or CNV into RPL. RPLRBA SRT176 


AIX-RPL 










50. Test if request issued against a path. 


Tk i No mm (63) 


RPLOPT1 
RPLOPT2 





AIX-RPL AIX-PLH SE 
RPLREQ 51. DIR and NUP specified? 
RPLOPTCD PLHST No Yes 
RPLAREA | ae Return 
| ——s|saAX-AMDSB AIX-PLH 
pelsibear A 52. Store request type code, request options SRT177 
auekeres and AIX key into AIX-PLH. SEMOPE 
eee Ret PEHFLAG 
Pore PLHKEY 
RPLDIR — — —-e 53. DIR and NUP specified? SRT179 










No Yes mere 
cae zl oma> 
SEQ or SKP 


and NSP specified 


Notes for Diagram BG8 
47. For relative record processing, the Modify Data CNV routine may 
indicate that PUT ADD processing has to be restarted. 


This occurs when larger portions of the data space had to be 
preformatted, and the connection between the PLH and the target 
data Ci was lost. 
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Diagram BG9. PUT ADD: Store a New Record 


RPL Common processing and exit (continued) Module 


RPLRLEN _ 
RPLREQ 


RPLOPTCD 
RPLKEY 


PLH or label 























54. Store data length, request-type code, request 
options, request RBA and, if keyed processing, 
key or relative record number of record to be 
inserted, into PLH and indicate PLH points to 
previous record or control interval. 


SRT180 






RPLAREA AMDRKP 
AMOKEYLN 





Return 
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Diagram BH1. PUT UPDATE or ISAM-Issued PUT in LOCATE Mode: 


Store an Updated Record 


PLH(B) 


PLHRTC 


RPL(B) 


RPLDIR 


PLH(B) 


PLHEOD 


PLH(B)} 


PLHOBCB 


Notes for Diagram BH1 


Notation: 


PLH(A), etc.: Control block associated with AIX 


*Diagrams 8B, BD 


. Was the previous request a GET UPD? 


No Yes m0 ) 


PLH must be positioned PLH positioned 
to proper record to proper record 


DIR specified? 
No Yes 


3. Move CNV RBA specified by 
user’s argument into PLH. 


oman (6 ) 


. Get RBA for next sequential CNV if PLH does 


not yet point to next CNV RBA. 


See Diagram BL, LOCATE NEXT CNV RBA. 


. End of data? 


No Yes Ga Return 


4 


. Get exclusive control of data control interval. 


See Diagram DA, GETBUFF: Get exclusive 
control of data control interval. 


Is BCB connected to the PLH? 





PLH(B), etc.: Control block associated with base cluster. 


1. Stand-alone updates (updates without previous GETs) 
are allowed for user buffer processing. 


2.46 
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Module 
or label 


IKQUPD 


uPD010 


PLH(B) 
PLHPOS UPDO020 


R15 


EOD 


UPDO35S 
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Diagram BH2. PUT UPDATE or ISAM-Issued PUT in LOCATE Mode: 
Store an Updated Record 


PLH 






PLHSWT2 


PLHDRBA 
PLHDRO 
PLHAIXSV 













































no ' PLH(B) Module 
[+e —— —}~8. Get BCB address and store in PLH. hae 2, ar tabel 
Pp 
See Diagram DA, GETBUFF: Get BCB address. 
RPL(B) RPL(B) 
—— T°9. If newrecord must be spanned save record UPDO45 
OC~S information. 2 
PLH(B) 
Set record length to Cl-size-minus 10, and es oe 
‘indicate spanned record. 
. Update the data CNV. { UPDO5O 
See Diagram BQ, Modify a Data Control RPL(B) 
vere pia ote oa 
-— oe eorlv— 11. If spanned record processing, restore record 
ee internation: Data AMDSB 





. If not CNV processing, adjust the number of 
updated records. 


| AMDLUPR | 











Pp 
PLH(B) yee. 
—_— a . Store RBA of updated record or CNV as | PLHDRRBA __| 
feedback information into RPL, and as previous reneenes anes 
request RBA into PLH. Peace 






. Was the update request issued against a path? 
Yes No eum (s) 


$ 


15. Is this a direct request? 


No om (17) 
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Diagram BH3. PUT UPDATE or ISAM-Issued PUT in LOCATE Mode: 
Store an Updated Record 


2.48 





































Module 
or label 
Cancel positioning of alternate index PLH and 
AIX-RPL base cluster PLH. 
Le eal E> Return 
_-_— Store previous information into alternate index UPD083 
PLH and base cluster PLH, and indicate that both 
ae PLHs are to be set. 
Ga Return 
Reset PLH flags. UPDO85 





Is direct specified? 


No Yes me Return 


! 


20. Store previous request information into PLH and 
indicate that the PLH is positioned to previous 
data record or CNV. 


RPL(B) 


pees 














PLHRTC 
|PLHOPT 
PLHFLAG 


Test if locate mode, user buffer 
processing, or backward 
processing. 


No Yes Sa Return 


$ 


22. Indicate PLH points to next data record or CNV 


PLH(B) 
PLH(B) (; PLHFLAG 
PLHDBCE { 









Is a buffer connected to the PLH? 


No Yes mE (25) 


PLHDFSO 






Force ‘‘end of CNV reached”. 
Indicate wait. 


E> Return 
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Diagram BH4. PUT UPDATE or ISAM-Issued PUT in LOCATE Mode: 
Store an Updated Record | 








RO Meee 
25. Indicate overlapped operation for LOCATE (a to | pefiaete 


PLH NEXT. 


RO 


_-_-— . Locate next data record or CNV and advance 
PLH overlapped. 






See Diagram BL, LOCATE NEXT Data Record 
or CNV. 





Return 


Notes for Diagram BH4 


26. PLH will be positioned to the next Cl in an overlapped manner. 
This means that 1/O operations (read-ahead) are started, but their 
completion is not waited for, in order to overlap the !/O operations 
with user processing. 


2 


Licensed Material —— Property of IBM Section 2. Method of Operation 2.49 


Diagram BI1. ERASE: Delete a Record 

































































PLH RPL(B) User issued Module 
Data control interval 
ee . Erase data record identified by PLH. IKQMDY 
Record is erased and space made 
See Diagram BQ, Modify a Data CNV. available for reclamation 
Data AMDSB 
Error detected SCP Return Lior aa cel 
data control interval AMDLIREC IKQUPD 
Adjust the local statistics. AMDLNLR UPDOGO 
: ete st AMDLDELR 
AMBL(A) . Store the RBA of the erased record into RPLIB) UPDO80 
Eo et eer pee 
———-7™ 4. Was request issued against a path? (A> |_APLRBA 
Yes No 
RPL(A) | 
_ PLH(A) 
RPLOPT1 _—— . DIR specified? aaa 
Parinea 
Yes No a>’) 
M 
\ aaa 
\ 
\ . Reset positioning of base PLH and AIX-PLH. 
nancies 
. Store previous request information into AlX-PLH, UPDO83 





and indicate AlX-PLH and base PLH are 
positioned to previous data. 


PLHPREQ 
PLHDRRBA 







SCE Return 






. Reset PLH positioning. 





Notes for Diagram BI1 


Erase requests are allowed only for keyed or addressed processing of 
key-sequenced data sets or for relative record data sets. An ERASE 
must be preceded by a GET for update, which positions the PLH to 
.the record to be erased. 


Notation: 


PLH(B), etc.: Control block associated with base cluster 
PLH(A), etc.: Control block associated with AIX 
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Diagram BI2. ERASE: Delete a Record 



































































control interval. 


Module 
DIR specified? or label 
UPDO85 
RPL(B) a N 
° Yes > 
Pe ee ee none PLHIB) 
PLHFLAG 
APLOPT2 \ 10. Indicate PLH set to previous data and store { PLHPREO 
aaa \ previous request information. 
N Raa 
Backward processing or locate mode? 
‘ Yes Gua Return 
Indicate PLH points to next data. 
PLHDRO ; : ; 
BEEDESS Test if PLH points to end of data control interval. PLH(B) 
ee ee aed ge Return ace al 
Yes No PLHFLAG 
§ PLHDBAD 
PLH RO PLHDRO 
-— 14, ‘ 
My (ae) Advance PLH overlapped to next record or STOBRDE UpD090 
da 


PLHORIX 









See Diagram BL, LOCATE NEXT 


data control interval 


[ioreewe 





Return 
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Diagram BJ1. Retrieve Spanned Records 


yy 





Is exclusive control required? 
i No mm (3 ) 


Hold the data in exclusive control. 








AMOSB 


AMDATTR 1 ee ee eee ee 












Is this a key-sequenced data set? 


Yes No mmm (5 ) 
Index buffer 


ee 4. Count the pointers of the complex index entry 
and store the result. 





Data buffer 


———— ——— 5. Store the RDF pair containing the level number. 
of the first segment in the PLH. 


PLHDRBA 


Store the feedback information which will no 








longer be available at the termination of the 
Data buffer request. 
If not first segment, then read the segment. 
RPL rs 
See Diagram BS, Get Next Buffer. 
RPLAREA | 
PLH Compute the address in the user’s area to whic 
PLHRLEN ( the contents of the data buffer are to be moved 
/ 
RPL 










RPLBUFL —_—— — 


Is the user’s area large enough? 


Yes No CEE Return 


Data buffer 
oY} 10. Move the data to the user's area. 





Has the last segment been moved? 


Yes No om (7 ) 
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PLH 
PLHXPTR 


-PLHSRRDF 


PLHPKEY 
PLHSRRBA 


2 


PL 


RPLAREA 


a 


15 


User area too small 


Module 
or label 


1KQSRGOO 


SRGO0S 


SRGO10 


SRG025 


SRG040 


SRGO70 


SRG076 
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Diagram BJ2. Retrieve Spanned Records 




























AMDSB Module 
AMDATTR 1 — ee 12. Is this a key-sequenced data set? or label 
j No 
Does the number of segments agree with the 
number of pointers computed in step 4? 
R15 
Yes No SCE Return 
Inconsistent 
spanned record 
14. Update the statistics. SRGO80 






AMDSB 


| AMDLRETR | LRETR 






Return 
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Diagram BK1. Store Spanned Records 






Module 
or label 


IKQSRU 


ts the current record spanned? 


No Yes (6 ) 
{ 


Clear the buffer. 











AMDSB 


AMDCINV 


Move data from user's area into’ buffer and build 
RDF and CIDF. 


Fcodice waco OFEIOA sAUt00 


Write the buffer into the data set. 





Reclaim the remaining control intervals. 


MEE Return 


Compute the number of control intervals needed 
to store the spanned record, and subtract the 
number of control intervals retrieved by the 

previous GET. 





SRU020 














Additional control intervals needed? 


Yes No 


Are there enough control intervals available in 
the current control area and, for a KSDS, is there: 
enough index entry space? 


No Yes 


J 


Get a new control area and reposition. 


SRU040 





Index buffer 


[secueee wees’ — 












SRU080 
See Diagram CA, Control Interval Split. 
ts the JRNAD exit active? 


Yes No wame>(i2) 





SRU100 
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Diagram BK2. Store Spanned Records 


User area 


PLH 


PLHSRCNT 
PLHXPTR 













Perform journaling. 


See Diagram FD, Journal a Transaction. 


Does new segment replace ald segment of 
the spanned record? 


Yes No 


Read the old segment. 


See Diagram BS, Get Next Buffer. 


Get a new Cl for the segment. 


See Diagram CA, Control Interval Split. 


Move a segment from the user’s area into 
the buffer, build RDFs and CIDF, and write 
the buffer into the data set. 


All segments handled? 


No aeE>(12) 


Has the record length decreased, so that 
control intervals must be reclaimed? 


Yes No SEE Return 


| 


Reclaim the control intervals. 





Return 
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Module 
or label 


Data Buffer 


acs meen oro] 00 


Nout] 
Data set 


SRU180 
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Diagram BL1. LOCATE NEXT: Locate Next Data Record or Control 


Interval 






* Diagrams BE, BF, BG, BH, BI 










1. Is control interval processing specified or end of 
control interval reached? 


i Yes mm ( 3) 


2. |s a share option 4 hold in effect? 


rf No memme>( 4) 


RPL 
RPLOPT > — — — — — 


















R15 
















AMDSB 7 
7 PLH 
ae | | . ery 
AMDSHR 3. Check if share option 4 hold has been in effect 
Bt ea for an excessively long time. PLHDSW1 
PLHBRKHD 

See Diagram DK, Share Option 4 Hold Po Se 
Time-Out. PLHXSW1 


PLHBRKHD 


PLHDATA 











Excessive time emma 5) 
j excessive time 


4. Point PLH to next record in control interval. 


Return 


Notes for Diagram BL1 


1. A transition to a new control interval must take place if control 
interval processing is specified (CNV option in RPL specified), or if 
the end of a control interval is reached or forced by a previous read 


error. 


3. A negative return code in register 15 indicates excessive hold time. 


4. \f anew control interval is not needed, the PLH is advanced to the 
next record within the current control interval, and control is returned 
to the caller. 


2.56 


Module 
or label 


IKQLCNOO 


IKOQBFC30 


LCNO10 
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Diagram BL2. LOCATE NEXT: Locate Next Data Record or Control 


Interval 


PLH 














5. Locate the next record by use of LOCATE 
PLHPKEY DIRECT. 
PLHDRO 

PLHORBA 


PLHXEO 


See Diagram BM, LOCATE NEXT by 
Argument. 


- Error 





SCC Return 


Record found in next control interval 


acces Return 








Next control interval empty 


4 


6. Locate next control interval or calculate RBA of 
next control interval. 


See Diagram BS, GET NEXT: Get Next Control 
Interval and Read Ahead. 


RO 


[——}----- 






R15 

——_——— . Data read error for this and previous request? 
No Yes em) 

R15 § 


[1 }----- 


8. Excessive share option 4 hold time? 


No Yes eer : } 





Notes for Diagram BL2 


5. A negative return code in register 15 indicates the next control 
interval is empty. 


6. GET NEXT performs two types of operations: 


If register 0 = 0 or 4, an I/O operation is started and finished before 
further processing is done. If register 0 = 8 (CNV processing only), 
the RBA is advanced to the physically or logically next control 
interval, but no reading is done. 


If register 0 contains a negative value, an overlap operation is 
indicated, causing read ahead to be started while processing continues. 
A second Locate Next operation with WAIT specified (register 0 = 0 
or 4) will ensure that the data is read. This second Locate Next 
connects the desired data buffer with the PLH. GET NEXT overlap 
frees the data buffer and initiates read ahead (the index buffer is, 
however, retained). 
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P 


LH 
PLHINDEX 
R15 


return code 
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Module 
or label 


LCNO43 


IKQLNA 


LCNO50 
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Diagram BL3. LOCATE NEXT: Locate Next Data Record or Control 
Interval 





















Module 
or label 
PLH 
Saree 
seem ——l— 9. End of data set encountered or PLH wait flag set LCNO60 
fees eee (only if overlap was specified?) 
No Yes SE Return 
10. Is this a middle or last segment of a spanned 
record? 
No Yes mme>(6 ) 
} pee Ne eed 
11, Point PLH to first-record in control interval. LCNO70 
aaa 


Return 


Notes for Diagram BL3 


10. As the start of the next record is to be located, the middle and last 
segments of spanned. records are skipped, unless CNV access is 
being used. 
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Diagram BM1. LOCATE NEXT by Argument 


Module 
or label 









AMBL 


— 
AMBLSHRW -_— Oo 


IKOLNA 


1. Get and lock the work area. 


2. Was the last record retrieved at the end of a Cl? 


No Yes 
ames ) 






PLH 
PLHDFSO 


PLHDRO 


RPL a“ 




















SHRWECB 


4 


3. Keyed access? 


LNAO30 







No Yes 


SHRW 


SHRWARG 


v 


LH 


PLHORBA 
PLHDRO 
PLHPKEYA 


AMDSB 7 
7 
ee 
AMDRRDS 













5. Get the key of the record just retrieved. LNAO40 





6. RRDS? 
Yes No 


J 


7. Set argument length to 4. 


Notes for Diagram BM1 


1. IKQLNA is called to construct an argument (an RBA or a key) 
that can be used by Locate Direct (IKOLCD) to find the 
next record after the one that was just retrieved. IKOLNA 
then calls IKQLCD. 


IKOLNA does not construct an argument if the record just 
retrieved is at the end of a Cl, except for keyed access to 

a KSDS. !KQGNX handles the records at the end of a Cl. 
For sequential retrieval, when the CA has been held in share 
option 4 exclusive control for an excessively long time, 
IKOLCD releases and reacquires the share option 4 exclusive 
control. 


2. If the last record retrieved was at the end of a Cl, the processing 
is assumed to be keyed access to a KSDS. 


4. IKOCLN has already updated PLHDRO to point to the next 
record, 


Licensed Material — Property of IBM Section 2. Method of Operation 2.59 


Diagram BM2. LOCATE NEXT by Argument 



















































Module 
IXENTRY R8 or label 
LNAO6O 
fkey 8. Initialize register 8 to decompress index key 
ae for the last C! from which data was retrieved. IXENTRY 
= — a 
IXENTRYL bs . Move portion of key contained in a sequence LNAO70 
ec =e set entry to its correct spot in the argument 
ase he area. SHRW 
R8 ieee . Adjust pointer to the next sequence set entry. ieee a 
Coa ee. | 
PLH on : Have we processed the entry for the last Cl LNA100 
ae retrieved from? 
eer ie 
PLHXEO om Yes 
a | i ©) 
AMDSB 12. Set the back end of the argument area to 
—_ ‘ , 
aa Pee X'FF's. LNA110 
E ——= sees 
ra ay hae 13. Get the key length. 
7 
4 14. Initialize the pointer to the back end of the 
IXENTRY y, argument: ae 
7 7 
7 7 . Add binary 1 to the argument. 
IXENTRYL Ved LNA130 
a 
a 
R9 wo 
7 
SHRW f- 





SHRWARG 


Notes for Diagram BM2 


8-11. The key in the sequence set entry for the Cl last processed is 
decompressed in order to give the high key assigned by the 
index to that C!. See notes for Diagram BU for an example 
of key compression. 


12. Set to X‘FF’s the part of the back end of the argument area 
that was not set from the index entry key (due to rear 
compression of the index entry key). 


15. Adding binary 1 to the argument gives the lowest possible 
key that the next record could have. This step handles the 
relative record number for an RRDS, as weil as the key 
for a KSDS. 
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Diagram BM3. LOCATE NEXT by Argument 


SHRW 


_ 
SHRWARG a= 





w 16. Use Locate Direct to locate the next record 
(and to release and reacquire the share option 
4 hold). 


See Diagram BP, LOCATE DIRECT. 












Error? 


No Yes aa (19) 
$ 


17. Does the return code indicate end-of-Cl was 
reached without finding a record to satisfy 
the requirement? 


a No 


18. Set a negative return code to tell Locate 
Next (IKQLCN) to advance to the next Cl. 


le» 19. Uniock the work area. 


| lil 
| 
| 
| 
| 


























SHRWECB 


Return 
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R15 
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Module 
or label 


LNA140 


LNA150 
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Diagram BN1. LOCATE PREVIOUS: Locate Previous Data Record or 
Control Interval 







*Diagrams BE, BF 


ad 


LH 









1. ls start of control interval reached? 


Yes No 
4 


Locate previous control interval 


ee ee 


PLHDATA 









PLH 


PLHSWT1 
PLHDATA 






2. Get the (physically) previous control interval. 
See Diagram BO, GET PREVIOUS. 


P 


15 










negative ee 


3. Is share option 4 hold to be released and 
reacquired? 


Yes No mamem>(5 ) 
4 


4, Set the reread flag. 





AMDATTR1 ———— 5. Is this a relative-record data set? 


No Yes 


7 







> 
= 
oO 
a 
a 





7. Point to the last slot in the control interval. 


Se Return 





Notes for Diagram BN1 


4. The reread flag causes the PLH to be positioned to the previously 
retrieved record (with release and reacquisition of the share option 
4 hold), after which [KQLCP is called again. 
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Module 
or label 


IKQLCP 
LCPOO1 


LCPO20 


LCP100 


LCP150 


Diagram BN2. LOCATE PREVIOUS: Locate Previous Data Record or 


Control Interval 














Locate previous record 





AMDSB ; 
8. Is this a relative-record data set? 
| _— 
AMDATTR1 aie No Yes samme (13) 


— 


4 


9. Is this share option 4 hold? 


; No emmem>('2) 


10. Has the hold been in effect a long time? 


See Diagram DK, Share Option 4 Hold 
Time-Out. 


Excessive time 
| No excessive time mnmmenp>(12) 


11. Set the reread flag. 


| 



















saeme> Return 


12. Point to the (physically) previous record. 


Se Return 


13. Isa share option 4 hold in effect? 









R15 


PLH 


PLHDSW1 

PLHBRKHD _ 
PLHXSW1 
PLHBRKHD 
PLHRREAD 
PLHDATA 











Notes for Diagram BN2 
11. See note for step 4. 
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Module 
or label 


LCPO40 


I(KOBFC30 
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Diagram BN3. LOCATE PREVIOUS: Locate Previous Data Record or 
Control Interval 


Module 
or label 
14. Has the hold been in effect a long time? 
See Diagram DK, Share Option 4 Hold ee 1KQBFC30 
Time Out. PLHDSW1 
‘ ; PLHBRKHD 
. No excessive time 
Excessive time PLHRREAD 
PLHDATA 
15. Set the reread flag. 
LCP160 





Notes for Diagram BN3 
15. See note for step 4. 
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Diagram BO1. GET PREVIOUS: Retrieve Previous Record 






































Module 
PLH or label 
PL —— 
Beret iKOLCP 
. Attempt to get an extra BCB. LCP200 
ees oe ee 2. If there is a share option 4 hold on the data 
Ee cn a component, save indication that control area 
is in exclusive control while sequential processing 
takes place. 
LCP210 
. Point to GET NEXT index buffer (R4) and 
Data buffer GET NEXT data buffer (R3). 
ee ee 4. Free the old data buffer. 
See Diagram DA. Perform REPBUFF function. 
RPL 
a . Is this a keyed request? 
Yes No o>?) 
AMDSB | 
—— — — 6. Is this a relative-record data set? 
aay Yes No 
J LCP370 
PTANDOOO 


7. Point at the next data for ESDS or RRDS. 


PLH 


PLHFLAG 











8. End of data? 


No Yes Gamma Return 
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Diagram BO2. GET PREVIOUS: Retrieve Previous Record 























































Module 
PLH or label 
ie oe acntll 9. Is share option 4 hold in effect? LCP380 
— _— 
-, Yes No 
PLHDRBA | 
| PLHDRBA 
ee Sl 10. Is the next Cl the last Cl in the (physically) 
Pg previous control area? 
7” 
AMDSB y Yes No omm>(12) PLH 
aes ae fe casee ed 
AMDCINV a PLHDSW 
AMDCIMLT 11. Indicate that the hold on the current control PLHHELD 
Ie eal area should be released and a hold should be PLHHOLD 
acquired for the new control area. Rae fo el 
RO a LCP390 
Sfp a 12. Check if share option 4 hold has been in 
effect an excessively long time. 
See Diagram DK, Share Option 4 Hold IKOBFC30 





PLH 


Time-Out. 
















PLHDSW1 
No excessive time PLHBRKHD 
Excessive time ee ga 







PLHOSW 
PLHHELD 
PLHHOLD 





13. indicate that the hold should be released 
and reacquired. 
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Diagram BO3. GET PREVIOUS: Retrieve Previous Record 















PLH 
PLHXRBA —S 
7 
aaa 2 


Index buffer ; a“ 


= 14. Is position at start of sequence-set record? 


i No 


15. Indicate that previous index control interval 


must be read. 
Se Return 


16. Is share option 4 hold in effect for the 
sequence set? 


i No 


17. Check if share option 4 hold has been in effect 
for an excessively long time. 


PLH 


PLHSWT1 





PLH 


PLHXSW 
PLHHELOD 







R15 


return code 


PLH 






See Diagram DK, Share Option 4 Hold 
Time-Out. 


Excessive time =, Return 


No excessive time 






PLHXSW1 


PLHBRKHD 
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Module 
or label 


LCP240 


I{KQBFC30 
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Diagram BO4. GET PREVIOUS: Retrieve Previous Record 











Point at the next index entry in backward 
direction. 


Change index pointer into a data RBA value. 


Point to GET NEXT index buffer (R4) and 
GET NEXT data buffer (R3). 







RO 





Has exclusive control been requested ? 
Yes No 


4 


22. Indicate that exclusive use is needed. 
















Get the next indicated buffer. 


See Diagram DA, GETBUFF 
RPL 


ls the control interval empty ? 


Return 


PLHEHOLD 


Module 
or Label 
LCP245 


PTATDOOO 


LCP300 


LCP310 


LCP320 
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Diagram BP1. LOCATE DIRECT: Locate Data Record or Control 
Interval by Key or RBA 







*Diagrams BE, BF, BG, BM, BQ, CF Module. 


RPL or label 
R2 ae) 
— . IKQLCD 
RPLOPT1 Is key specified? LCDO10 

























AMDCINV Calculate control interval RBA and record 
AMDATTR1 offset. 
PLHDRO 


AMDNSLOT 
AMDPARDB 









R15 


LCD020 
[CNVRBA RBA 


3. Is RRDS processing? 
Yes No 


> 4. Calculate control interval RBA and slot offset. 


Is requested slot within preformatted area? 





































F PLH 
No Yes (0 ) ae 
Hits % PLHDRBA 
CNV RBA —— Set return code, store preformat target RBA PLHEOD 
and indicate end-of-data. Red 
fesae ) Return 
RO 
fed rae Locate index entry. LCDO30 
PLHXRBA See Diagram BU, Search !ndex. VSM Index 
(cat Error detected CE Rewrn PLHXRBA- 
ele} LL 












Sequence Set Record 


IXBASRBA Key Fo L P sie 
: C 


Calculate data control interval RBA. Sequence 
Set 


R15 E= Index entry 


CNV RBA 





user's argument 


© 


Notes for Diagram BP1 


7. \f'exclusive control is requested for a SHAREOPTIONS (4) hold file, 
the index search routine requests a SHAREOPTIONS (4) hold on the 
sequence set. 
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Diagram BP2. LOCATE DIRECT: Locate Data Record or Control 
Interval by Key or RBA 


Module 
PLH or label 


LCDOS50 











. Store data control interval RBA. 





. Can read of control interval be bypassed (for 
retrieval of consecutive records in skip- 
sequential processing)? 


No Yes | 


PLHRST 
AMDSB 
PLHEC 


AMDRADS PLHORBA 






PLHDSW1 
PLHEHELD 


PLHBRKHD _ 


BUFCVAL RPLREQ 
| SS POR 


-RPLKEY 


*hold retained 





PLH 


PLHDSW1 
PLHEHELD 





. If exclusive control is in effect, then activate 
exclusive control handling. 












LCDO60 






. Hf exclusive control is requested, set switches 
to request it (and SHAREOPTIONS (4) hold) 
from the Buffer Manager. 









LCDO70 
PLHDSW 


PLHHOLD 





RPL 
RPLKEY 


PLHOSW1 
PLHEHOLD 
PLHEACTIV 







AMDDST 


PLH 





Notes for Diagram BP2 


10. The call to the Buffer Manager to read the control interval is by- 
passed if: 


@ The desired control interval is already in the buffer connected 
to the PLH, and 


@ No change of exclusive control is required. 


This bypass can serve two purposes during skip-sequential 
processing: 


@ It prevents multiple writes to the file if multiple records are up- 
dated in the same control interval. 


@ (f the file is SHAREOPTIONS (4), it prevents multiple reads of 
the same control interval. 
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Diagram BP3. LOCATE DIRECT: Locate Data Record or Control 
Interval by Key or RBA 


PLH 








Module 


















































foes aad or abe 
data parameter Read the data control interval into the buffer. 
list aces eee Neate Buffer LCD100 
See Diagram DA, GETBUFF: Read data CNV. Data CNV 
RPL Error detected cp Return 
RPLOPT1 Sraeyees 14, Is this a keyed request for KSDS? LCD110 
ae Yes No 
F = Front compression count of key 4 
L = Length of recorded key 
P = Pointer to corresponding C1 
PLH Index BCB 
i Se | 
aes ——o 15. If anew copy of the index has been written by 
fens another user than the restart locate direct. 
RPL ; @ 
—— CNV processing? PLHDRO LCD120 
ae No Yes > Return PLHDROF 
J 
PLH F . 
17. Scan data control interval for the record with IKOSCN 






the given key, relative record number or RBA, 
and set return code. 





return codes: 
Q: record found 
4: no rec found 
8 : no rec found, end of CNV located 
12 : Invalid RBA specified 


PLHBAD 


* for kayed processing 
of KSDS only RO 











Was the end of data control interval reached? 


Yes No SERED Return 


PLH 


PLHEOD 














If end of data (last sequence set entry: F=0, 
L=0) during forward processing, set EOD flag. 


LCD130 





F = Front compression count of key 
L = Length of recorded key Return 
P = Pointer to corresponding Cl 


Notes for Diagram BP3 


17. Possible return codes for addressing processing: 
@ record found 
@ invalid RBA 


Possible return codes for RRDS processing: 
@ record found 
@ no record found 
® no record found, end of CNV located 
(if requested slot is beyond preformatted area) 


Possible return codes for keyed processing of KSDS: 
® record found 

® norecord found 

® no record found, end of CNV located 
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Diagram BQ1. Modify a Data Control Interval 








*Diagrams BG, BH, Bi 


PLH 


PLHFLAG ———— 


RESUME LOAD. 


Control interval processing? 


Yes No 


RPL xe 








CNV-processing 


3. Insert request? 


No Yes 


4. User buffer processing? 


Ito 


No Yes 





User’s area 


Data control interval 





5. Copy updated CNV into buffer. 


Connect PLH and BCB to user’s buffer. 





7. Indicate ‘‘must write” for the buffer. 


RPL 


RPLREQ —_— 


PLH 


PLHXPTR _ 





8, Update request? 
Yes No 


Update 


9. Is old record spanned? 


$| 3 


No Yes 
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1. If insertion to end of data set indicate LOAD or 












































Modute 
or label 
PLHLOAD KKOMDY 
MDY010 
Data Buffer 
PLH 
Re toe | MDYO20 


PLHBAD 


BCB 


BUFCBAD 
BUFCMW 
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Diagram BQ2. Modify a Data Control Interval 














Module 
or label 





Update continued 
Locate mode specified? 


y Yes emm>(13) 





















PLH RPL 
PLAXPTR 





PLHDAL RPLOPT2 
\ RPLRLEN Update with length change? PLHDBAD 










PLHORO 





RPLAREA PLHDRO 


No Yes eam (ss) 
4 


ie 12. Replace old record with new one. 


Indicate “must write’’ for the buffer. 


BUFCMW 
ee 


Erase specified? 


§ No 


Erase 













ls old record spanned? 


No Yes 
4% 


16. Relative record processing? 


Yes No mum (i0) 
¥ 


Set invalid record indication and clear slot. 


AMOSB 


AMDATTR1 -o 


data buffer 












18. Indicate “must write” for the buffer. 
19. Set length difference to negative of old 
record length to simulate update with 


length change. Se a) 
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Diagram BQ3. Modify a Data Control Interval 






Module 
PLH or label 


PLHDBAD MDY046 
PLHDRO 


AMODSB 


20. Relative record processing? 


Yes No eum (24) 





























End of preformatted area reached? 


j Yes 


RPL 


RPLRLEN 





















RPLAREA 22. Move record into its slot and indicate valid MDY050 
record in slot. 
Indicate ‘‘must write” for the buffer. 
63 PLH 
24. Set old record length = 0 to simulate update PLHDRL MDYO055 


AMDSB with length change. 


PLHLOAD 











25. Is the data set a key range data set? 
i No 


Is insertion point at the end of the data set or 
at the beginning of the control interval? 


No Yes 


| 


27. Is insertion point at the end of the control 
interval? 


Yes No en (20) 


28. If insertion to the end of key range indicate 
| RESUME LOAD. ; 












PLHDFSO 


ARDB 


ARDHKRBA —_— 








(a) IKQKRD 





2.74 | VSE/VSAM VSAM Logic, Volume 2 Licensed Material — Property of IBM 


Diagram BQ4. Modify a Data Control Interval 








PLH 
PLHDRO 
PLHSWTCH 


PLHDBAD 
PLHDCSZ 


data buffer 






RPL 






PLHDRO 
PLHSWTCH 


AMDSB 


Poe fate ee 
AMDFSCIL |-~ 





4 
4 


Insert (continued) 


Does record belong to a different key range, or is 


enna (44) 


this the first load? 


No Yes 


Is insertion in front of or behind a spanned 


record? 


If insertion is behind a spanned record and 
LOAD is not indicated, indicate MASS INSERT, 


em (35) 


Yes No 


Addressed processing? 


No Yes 


Indicate MASS INSERT if sequential insertion to 
the end of a control interval and LOAD or 
RESUME LOAD is not indicated. 


If LOAD or RESUME LOAD, decrease actual 
free space by basic free space in order to 
maintain the percentage of free space specified 
by the user at data set define time. 





Modify data CNV 


Build modified RDFs in PLH work area. 
See Diagram BR, Build RDFs. 
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Module 
or label 
MDY070 
PLH 
PLHMSRT 
MDY080 


PLH 


— RDF shift count 
— Data length difference 


eee ol ere 


(NEW-OLD) 
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Diagram BQS. Modify a Data Control Interval 
















. ‘ Module 
RDF shift count: RI Modify data CNV (continued) or label 
Data length difference: R5 = 36. 1s a control interval split required? 
Actual free space: R6 

R5 <R6+R1 

No Yes 

PLH J 
MDY110 


data buffer 


MDY120 






37. Shift RDFs on the left of RDF modification 
point to the left if more RDFs are needed, or 
to the right if fewer RDFs are needed. 





RDF 
modification 


PLHDBAD 
PLHDRDF 


















Transfer changed RDFs. 


PLHDRO 
PLHDBAD 


PLHWA 


Shift records on the right of record-modification 
point to the left if less space is needed, or 
to the right if additional space is needed. 







































RPL 
ieee al Erase request? MDY 140 
a = 
No Yes meme (42) 
be 41, Insert updated or new record. 
Update CIDF in data buffer and PLH. MDY150 
Indicate ‘must write’ for.a data buffer. see MDY160 
Split data CNV 
AMDSB PLH 
= 44. If data set is shared, turn off the indication ae aan ll MDY170 


that a SHAREOPTIONS (4) hold is in effect 
so that the hold won't be released until the 
split is complete. 


PLHDSW 


PLHXSW 


PLHHELD 
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Diagram BQ6. Modify a Data Control Interval 






















































AMDSB Module 
aaa Is this an ESDS? or label 
AMDATTR1 
JAMOATTRI | Yes No MDY 17200 
AMDCINV 
AMDCIPCA 
Pee wl 46. ls a control area split required, or is a spanned 
yy, record being inserted? 
PLH 
a i 
AMBL 
PLHDRBA \ ui Stee oan th 
PLHSWT2 47. — Set lock for CI split . AMBSECBT MDY 17210 
RPL 
RPLOPT1 Is control interval processing being used? MDY 17220 
as Y N mame) 
es o 
Data set 
Buffer 
49. If there is a buffer connected to the PLH, MDY17222 
write it to disk. 
PLH a 
PLHDBCB i— Get a scratch buffer. 
R15 
[tat cosa \ 
Yes No \ 
RPL NS Scratch buffer 
User buffer processing specified? MDY17224 








No 


i 


Move control interval to buffer. 


Yes 
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Diagram BQ7. Modify a Data Control Interval 


ARODB 


ARDHRBA 






AMBL 


AMBLPLHN 


2.78 


RPLAREA 


AMDSB 


bp ee oe 
PAMORWREA b __ 

a 
en 
ae / 
PLH / 
Di esl 


Buffer 


task? 























Yes 


Yes 


User 
Work Area 





active. 





Yes 
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Has high-used RBA been updated by a parallel 


55. Set error code requesting a restart. 


56. Write old Cl buffer and get a new one. 
See Diagram DA, REPBUFF. 
57. Return code 0? 


58. Clear new buffer. 


Move first record into buffer, build RDF and 
CIDF, and copy information into PLH. 


Indicate ‘must write” for buffer, and update PLH 
data RBA. 


Write new buffer if multiple string processing is 


Return code 0? 





| 





PLHORDF 
PLHCIDF 


BCB 

















Module 
or label 


MDY 17226 


MDY17228 


MDY 17230 
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Diagram BQ8. Modify a Data Control Interval 






Update high-used RBAs. AMDSB 





Release lock for Cl split. 


Split data control interval. 











AMBL 


AMBSECBT 


See Diagram CA, Control Interval Split. 


AMDSB 
AMDATTR2 — 





If data set is shared, turn on the indication that 
SHAREOPTIONS (4) hold is in effect again. 


PLHHELD 


PLHXSW 






Check split return code: 


retry via IKOSRT SEE Return 


retry required 


















R15 yr ees 








no error detected 


error detected SE Return 


Reposition data PLH. 





See Diagram BP, Locate data record and retry 


CNV modification. 


69. Relative record processing? 


Yes No (73) 
4 
eum (72) 










AMDSB 
AMDATTAI1 
AMDATTR2 







70. Load and speed? 
Yes No 
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ARDHRBA 


AMDCINV 
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Module 
or label 















MDY 17260 


MDY175 


MDY177 
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Diagram BQ9. Modify a Data Control Interval 


Module 
or label 


PLH 
PLHOBAD 
PLHDCSZ 











71, Reposition PLH to the required slot and retry 
ee CNV modification. 


72. Indicate retry required. Game Return 


Spanned record processing 


PLHSWT2 _ 73. Is new record spanned? 


AMDSB 4 


— . tf data set is shared, turn off the indication that a 
SHAREOPTIONS (4) hold is in effect so that the 
hold won't be released until spanned record 
processing is complete. 


PLHDSW 
PLHHELD 


AMDSB 
AMDATTR1 


. Do required modifications for spanned records. 
See Diagram BK, Store Spanned Records. 


. tf data set is shared, turn on the indication that 
‘ SHAREOPTIONS (4) hold is in effect again. 
R15 f 


= . Error detected? 
No Yes SC Return 








RPL 


RPLOPT1 
RPLOPT2 






“ Common termination data buffer 


sem ONL 
t 78. If user buffer processing or if direct processing 
PLH A and NSP not specified, then write buffer 
fe ye immediately. 
See Diagram DA, GETBUFF. 
data buffer 


data CNV 


Return 


Notes for Diagram BO9 


78. If the buffer is written immediately and it is for keyed 
access to a SHAREOPTIONS (4) KSDS, then an additional 
call is made to the Buffer Manager to release the 
SHAREOPTIONS (4) hold on the sequence set. 


PLHXSW 
PLHHELD 


Cle 
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Diagram BR1. Build New and/or Changed RDFs for Nonspanned KSDS 
and ESDS 


Module 
or label 


Update and insert processing 






IKQBL000 







Is this request an ERASE? 


No Yes 
t 


Is the updated record the first record of a string, 
or is insertion in front of a string? 


No Yes me!) 
{ 


Transfer current RDF. 





RPL 
RPLREQ 
RPLLEN 


























PLHDRIX 
PLHDBAD 









PLH 











R10 L. —>4, Is this an insert, and is new record the same | 
length as the other records in string? 
he ve a ese a 
~“ 
NX 
Example (Step 5): 
new Add 1 to RDF count. 





ae 


Point of insertion Example (Step 5): 


PLH work area 


Banat 





RDF pair 


Notes for Diagram BR1 


1.-5. RDF processing takes place if the updated record is not the first 
record of a string or if the insert record is inserted into the middle 
of a string. In either case, the string must consist of equal-length 
records. 


3. ‘If the RDF index is equal to 1, the updated or new record may have 
the same length as the record(s) described by the previous RDF. 
For update, the RDF-build routine is entered only if the length of 
the updated record differs from the length of the original record. 


5. If the new record has the same length as the records described by 
the previous RDF and the RDF index in the PLH is equal to 1, and 
if the previous RDF does not have an RDF, an RDF count of 2 has 
to be created for the previous RDF. 
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Diagram BR2. Build New and/or Changed RDFs for Nonspanned KSDS | 


and ESDS 


Update and insert processing. (continued) 


Pane: Stans Gy.t.eree 2); . Create RDF for records in front of the new or 
updated updated record. 


record (R..) with 
length chahge 






Create RDF for new or updated record. 





Is this an insert? 


No Yes 


9. Create RDF for records 
following the new or updated 
record, 


we 
RDF pair SEE Return 


ls there any record in the string of equal-length 
records behind the new or updated record? 


No Yes > (9 ) 


Notes for Diagram BR2 


6.-10. RDF processing takes place if the record to be updated is in the 
middle of a string or if the record to be inserted into a string has 
a length different from the length of the records in the string. 
In either case, the string must consist of equal-length records and 
the RDF must be split. 


9, RDF processing takes place for records to the right of the new 
or updated record if the insertion is into the middle of a string 
of equal-length records and the length of the new record is different 
from the length of the records in the string or for any update with 
length change. 





Module 
or label 


BLDO10 
Example (Step 6): 
PLH work area 


Pda fe 


Example (Step 7): 
PLH work area 


dette te] axorec 


length of updated record 


Example (Step 9): 
PLH work area 


pate [ef ale | 
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Diagram BR3. Build New and/or Changed RDFs for Nonspanned KSDS 


and ESDS 


Example (Step 12): new or updated Update and insert processing (continued) 
record (Rg) with 
length change 






Can the new or updated record be combined 
with the preceding string of records (if there is a 
preceding string of records)? 
1°42 
Lo 2 Re, R Rs 


No Yes 
4 | 
: Create a single-record-length-count RDF for the 
| 3 Je] 2 ]ta] cor | new or updated record. 
a -e 


RDFs : Is this an insert or an update? 


Insert aman?) Update mmm (16) 


Attach new or updated record to previous string 
of equal-length records. 


L,7>R,,R 


Example (Step 14): saw Giaipdates 


record (R3) with same 
length as previous string 


Is this an insert or an update? 


Ly Ry, Ro 


Lo > Rg, Rg Update Insert Ge> Return 
2 [tof 2 [uy | cvoe 


Example (Step 18): 


| / 4 


‘ Can the last RDF in the work area be combined 
PRa] Ro {Rs [Ra] | with the next RDF (if there is a next RDF)? 


Does the current RDF have an RDF count? 


L,->R,,R,,R 
Ly} >Ry 23 Yes No See Return 


Combine last RDF in work area with next RDF. 


Return 


Notes for Diagram BR3 


11.-18. RDF processing takes place if the first and possibly only 
record ina string is updated or if a record has to be inserted 
in front of the string. In either case, the string must consist of 
equal-length records. 
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Module 
or label 


BLDO40 


Example (Step 12): 
PLH work area 


Example (Step 14): 
PLH work area 


aoe OE 


Example (Step 18): 
PLH work area 


BME 
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Diagram BR4. Build New and/or Changed RDFs for Nonspanned KSDS 


and ESDS 


in 
Example (Step 20): Erase processing 


PR, | Re [Ral Ra | oc 19. Does the current RDF have a count? 


Yes No om>(21) 
TATE [er] ] 


nv Build a replication-count RDF with the current 


RDF count reduced by 1 (for the record to be 
deleted). 


PLH 
PLHDCSZ 


PLHDFSO 


SEE Return 


Can next RDF be combined with previous RDF 
(if there are next and previous RDFs)? 


2 Yes No wane Return 


Example (Step 22): J 


PR, | Ro | >Ag< | Ry |e Combine previous and next RDFs. 





Return 





Notes for Diagram BR4 


19.-20. For an ERASE request, the RDF-count of the RDF describing 
the record to be erased is reduced by 1 if the count was 
previously greater than 1. If the count was 2, the new RDF 
will not have a replication RDF. 


21.-22, tf the record to be erased was described by an RDF without 
count (the record being the only one of that length), and if 
the neighboring RDFs have the same length count (that is, 
represent records of the same length), the RDFs can be combined 
to a single RDF with replication count. 





Module 
or’ label 


BLD180 


Example (Step 20): 


PLH work area 


Pon 


Example (Step 22): BLD210 


PLH work area 


pds fu 
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Diagram BS1. GET NEXT: Get Next Buffer and Read Ahead 
















*Diagrams BJ, BK, BL, CF 








1. Attempt to get an extra BCB 
Successful? 


Yes No > Return 


| 


2. If there is a share option 4 hold on the data 

component, save indication that control area 
is in exclusive control while sequential processing 
takes place. 


RPL 


RPLERRCD 






PLHOSW 


PLHHELD 










3. Point to GET NEXT index buffer (R4) and GET 
NEXT data buffer (R3). 


4. Is the overlap function specified? 


No Yes 


$ 


5. Can read-ahead be continued uninterrupted? 


Yes No staal 9 ) 


i 


HD 


BHDRAHOK —— — — — 
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Module 
or label 


IKQGNX00 
!KQBFA0O 


GNxX000 
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Diagram BS2. GET NEXT: Get Next Buffer and Read Ahead 


P 


LH 










PLHEC 



















ee eee CG. Is there a share option 4 hold on the data 





component? 


PLHHELD 
i, 4 
= 
Is there a share option 4 hold on the index 
AMDSB Pad component? 
aaa “~~ / 
-" 4 ves ha 
/ 
aes t 
7 
APL / 
ae Fc 
aa 8. Has the last Cl of a CA just been processed? 
a 
PLH a 
Bry No 
PLHXEO - 7 
PLHXBAD / 
7 9. Free the old data buffer. 
és See Diagram DA, Perform REPBUFF 
7 / Function. 
/ yo Af 10. Is the overlap function specified? 
IXLENTRY / y, 
7 hs / 
Data buffer / 7 
7 
ee ae. 
/ 
PLH / 
eee Fs 


Notes for Diagram BS2 


6. 


7.8. 


2.86 


If there is a share option 4 hold in effect, the old data buffer will 
not be freed until the next data Cl is read. Ifan update write 
is specified for the old data buffer, the write will be combined 
with the read of the next Cl (as happens anyway for non-share 


option 4). 
See note for step 6. 
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Licensed Material — Property of IBM 


Module 
or label 


GNX005 


IKQBFA10 


GNX007 


Diagram BS3. GET NEXT: Get Next Buffer and Read Ahead 



























Module 
3 or tabel 
—— GNX010 
[Cr —— 11. Is this a keyed request? 
Yes No ememp('2) 
AMDSB | 
-——— 12. !s this relative record processing? 
. Yes No 
| GNX260 
13. Point to the next data for ESDS or RRDS. PTANDOO0 
14. End of data? 
No Yes eam (25) 
PLH 
oon eee fasen: ll ae 15. Share option 4 hold in effect? 
ane Gnx270 
ae Yes No mee (2') 
no | 
oe Cilio. 
16. Is the next Cl in a new CA? 
AMDSB -” 
eee eee 
ae Yes No 


AMDCINV 
AMDCIMLT 







PLHDSW 


PLHHOLD. 
PLHHELD 





17. Cause the hold on the old CA to be released 
and a hold to be acquired on the new CA. 
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Diagram BS4. GET NEXT: Get Next Buffer and Read Ahead 


RO 


(——}- ----- 








18. Check if hold has been in effect for an 


excessively long time. tS 


return code 






See Diagram DK, Share Option 4 Hold Time- 


PLH 
Out. E 








PLHDSW1 


No excessive time 
Excessive time 


| 


19. Cause the hold to be released and reacquired. <p-——--—-—>| PLHHOLD 







; G 1) PLHHELD 
20. ts there an index BCB? 
No Yes mmm (23) 
PLH | 
= 21, Is the next index in storage? 
cae Yes No 
aN 
\ 
ae 22. Initialize the new index pointers. 

‘ ae) 

Index buffer \N 


23. Is position at end of sequence set record? 


Yes No 


$ 


24. Is there a horizontal pointer? 


I | 


No Yes 


R4 


[—_}- -—---- 


25. Is this GET NEXT processing? 
PLH 


PLHEOD 


Yes No 


| 


26. Indicate end of data. 


Return 
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Module 
or label 


GNX280 


IKQBFC30 


GNX010 


GNX250 


GNX180 
INIT1000 


GNX010 


GNX120 


GN X130 
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Diagram BSS. GET NEXT: Get Next Buffer and Read Ahead 






#» 27. 1's share option 4 hold in effect? 






R15 


return code 


PLH 


PLHXSW14 
PLHBRKHD 





Yes No 


t 


28. Check if hold has been in effect for an 
excessively long time. 


See Diagram DK, Share Option 4 Hold 
Time-Out. 


Excessive time 


I 






















t 


No excessive time 







29. Point at the next index entry. 







30. Change index pointer into a data RBA value. 






31. Js this a position-only request? 


No Yes 
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IKQ' 


ADV 
GNX 


GNX 


jiagram BS6. GET NEXT: Get Next Buffer and Read Ahead 









R4 
[ ~ ts this GET NEXT protessing? 
No Yes 
PLH § 
ae — bas 33. Get indicated read-ahead buffer. 
See Diagram DA, GETBUFF. 
R16 


Did an error occur during read -ahead ? 


No Yes 


} 


35. Increment the read-ahead count to include 
new buffer just read in. 

















AMOSB RPL 


36. Can read-ahead be done? 
Yes No 


I] 


37. Point to RDAHD index buffer (R4) and 
RDAHD data buffer (R3). 


Increment temporary read-ahead count. 









Has read-ahead been started on ail buffers 
that can be read in at one time? 


No Yes 


4 


™ 40. Have ail the buffers assigned to the PLH 
been read ? 


Yes No meme (1) 


BHD 





for Diagram BS6 


id-ahead is prohibited under any one of the following conditions: 
User buffers 
Data set is a catalog 
Share option 4 
Data set is an index component opened by itself, and it includes 
¥oth fixed block and CKD volumes. 
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Module 
or label 


GNX030 


GNX100 
iKQBFA1O 
GNX100 


GNX100 


GNX030 


GNX030 


GNX050 


GNX050 e 





Diagram BS7. GET NEXT: Get Next Buffer and Read Ahead 















PLH 
PLHIXSSV +4." oo 41. Is the overlap function specified? 
No Yes 
PLH 





a ee 42. If data control area was held in 
od exclusive control during 
- sequential processing, restore 
indication that share option 4 














Sie oat hold is in effect. 
a =a Normal Return 
Neto all 43. Point to GET NEXT index buffer (R4) and 
GET NEXT data buffer (R3). 
PLH 
See 44, Has exclusive control been requested? 
= yest 
45. Indicate that exclusive use is needed. 
46. Get the next indicated buffer. 
See Diagram DA, GETBUFF. 
RPL 






. Is this non-control-interval processing and 
is the control interval empty? 


No Mmmmmmmn(42) Yes mmamamp>(2>) 


. Isthis GET NEXT processing? 









J 





Yes No 





IXHDR 


IXNXTIR = 


—= 49. Is the next buffer in storage? 


Yes No emme>(5) 
¥ 


50. Handle horizontal pointer for GET NEXT. 







Notes for Diagram BS7 


42. Flag PLHKGEHD in PLHXSW1 (that could have been set on by 
{KOGPT under keyed access to a KSDS) is always cleared if 
the data set is share option 4. 
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PLH 
PLHEC 
PLHDSN 
PLHHELD 


PLH 


PLHEHOLD 
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Module 
or tabel 


GNX070 


GNX090 








GNX080 


IKOBFA10 


GNX085 


GNX140 


GNX142 
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Diagram BS8. GET NEXT: Get Next Buffer and Read Ahead 





. Free the sequence-set buffer and place RBA in 
parameter list. 


See Diagram DA, Perform FREEBUFF 
function. 



















PLH 
PLHINDEX 
PLHBINDX 


= 
o 





. Was an 1/0 error encountered? 


No Yes SCECEEP Error return 


BCB 


BUFWRINV — —— = oe 


53. Did some other string write this RBA of the 
index (resulting in valid but obsolete data)? 


Yes No menp(22) 
q 


54. Indicate that.buffer content is invalid. 


ra) 


—» 55. Is share option 4 hold in effect? 


Yes No mame?) 
| 


. Request hold on new CA. 
























BUFCVAL 
PL ee 
PLH 


PLHXSW 
PLHHELD 















PLHXSW _ 
PLHHOLD 


Pp 






57. Get the next sequence set buffer. 
See Diagram DA, GETBUFF. 
R15 


[-——}------ 





. Was there an 1/0 error? 


No Yes = 


Error return 


LH 
PLHINDEX 
PLHBINDX 











59. Did another string write this RBA? 
Ys No m>(22) 


. Indicate that buffer content is invalid. 


com>?) 








cB 






BUFCVAL 


Notes for Diagram BS8 


56. The hold on the old CA will be released when the hold on 
the new CA is acquired. 


Module 
or label 


GNX145 


(KQBFA10 


GNX1650 
GNX300 


GNX160 


GNX170 
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Diagram BS9. GET NEXT: Get Next Buffer and Read Ahead 


Module 
or label 
ae . Handle horizontal pointer for read-ahead. GNX200 
COU If there is only one index buffer, free the BCB. 
See Diagram DF, FREEBUFF and Return BCB. GNX240 
IKQBFA20 





(41) Continue GET NEXT 
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Diagram BT1. VERIFY: Reestablish High-used and High-key RBAs 





AMDSB 
AMDSPEED — 






Point to data AMDSB. 







2. Is speed option currently in effect? 


No Yes o> (7) 
j 


For each preformatted ARDB, search (starting 
with the current high-used RBA), control 
interval-by-control interval, for a software 
end-of-file until either the SEOF is found or the 
end of the allocated space has been reached, 
thereby updating the high-used RBAs 
CNV-by-CNV 








Data CNV 








Data AMOSB 






See Diagram DA, GETBUFF: Get CNV pointed 
to by high-used RBA. 






Set high-water RBA to maximum data high-used 
RBA. 







Index AMOSB 






Processing data? 


Yes No aEEE>(9 ) 
{ 


Store new data high-water mark in AMDSB. 


Data AMOSB 


AMDHWRBA 







ACB 













7. Is data set open for keyed processing? 


Yes No emai) 
! 


Point to index AMDSB. mammmm>(3>) 









Module 
or label 


IKQVFY 
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Diagram BT2. VERIFY: Reestablish High-used and High-key RBAs 












Index AMDSB 
Store new index high-water mark in AMDSB. 


R blish high-key RBAs of data ARDBs b unladen 
D eestablish high-key s of data s by 
ate AMOSE searching index for high-key of ARDB (X‘FF’ if 
not in key range) and convert pointer of index 


entry found into high-key RBA. 


See Diagram BU, Search index for ARDB high 


PLH 
key. 


PLHFLAG 


Index AMDSB 


Invalidate PLH positioning, 





Return 


PLHFLAG 
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Diagram BU1. Search Index 








RO 
an = *Diagrams BP, BT, CA, CB, CE, CG, CK 

— 
PLH — me. 
res 1. Single index record search? (RO=0) 
asia No Yes mmmmmip(7) 
Index AMDSB \“ Se § 
Haha opal os 2. Indicate that there is no higher level index Cl 
\Q to invalidate if a horizontal chain pointer 
—ae must be followed. 

om 
AMDSB ae 3. Positioning to previous index entry? 
eee * oy No mmmm>(5) 
ee, eee 
aaa) (A) ™~ 4. Nullify previous entry information and indicate 
RO (8) Soe high-level index search. 
Ch \ 5. Share option 4? 
PLH ~~ aS \ Yes No 
Po SR 
(ON . . 
(c) <os 6. Net share option 4 control information. 
~~ 7. Can the index buffer currently “‘on the PLH” 

— be used as is for the start of the index search? 







PLHXSW 








ree No 
PLHHELD Yes romen>('1) 
PLHXSW1 3 
PLHBRKHD 8. Is there a data buffer that has to be written 
if share option 4 hold is released? 
y, Yes No mmmmmmi>(10) 
555 / 4 
Peis / 9. Write the data buffer. 
>} Fa See Diagram DA. REPBUFF. 
y, 
ee tu8 See i a Error detected ome (3’) 
PLH 
a 
fe | No error 
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Module 
or label 


iKQtXS00 


P 


PLHXRBAP 




























LH 

PLH 
PLHXLVL 
PLHXRBA 

LH 


1XS010 
Pp 


PLHIXSSV+8 


PLH XSW 


PLHHOLD 


PLHHELD 


PLHNOINV 









1XS016 
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Diagram BU2. Search Index 


Notes for Diagram BU1 


Normal index search: 

An index record is searched for the entry containing a key that is not low 
compared with the search argument. The search starts with the low-key 
entry and ends when the required entry is found. A search is done in two 
steps: first the section containing the desired entry is located (steps 11-15), 
then the entry within the section is identified (steps 21-25). 

If RO=O only the index record attached to the PLH (PLHXBAD) is searched. 
No 1/O is done. 

If RO >0 its value identifies the index level to stop on, and PLHXRBA 
contains the RBA of the index record to start with. The ‘desired index 
entry” in high-level index records contains a relative pointer to the index 
record one {level deeper, which must be searched next. If RO=1 the index 
hierarchy is searched down to the sequence set level, which is the deepest 
index level. The ‘‘desired entry” in the sequence set contains a relative 
pointer to the data control interval that contains (if inserted) the data 
record with the desired key. 

The high-key entry is identified by a key with length 0. 

Output of index search is the PLH positioned to the “desired index entry” 
on the desired level. If the ‘desired entry” is complex, (i.e. for a spanned 
record) the PLH is positioned to the leftmost subentry. 


Index search for the previous index entry: 

During sequential backward processing, whenever the low-key entry in a 
sequence set record was reached, the previous index entry in the next 
(low-key direction) sequence set record must be located. 

This is achieved by a normal top-down index search for the previous request 
key, during which previous entry information is saved whenever the inspected 
index entry is not the “desired entry’’ (steps 13 and 23). 

Normally the saved previous index entry at the end of the normal top-down 
index search for the previous request key will lie in a higher level index; so a 
secondary index search is started (steps 32 and 33), with the index record 
identified by the previous entry information. The secondary search locates 
the high-key index entry in the next lower sequence set record, which is the 
previous key. 

The end of data set {in backward direction) is reached when no previous 
entry information was stored during the normal index search for the 
previous request key. 
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2. The PLHXREAP field is set to minus one to indicate no significant 


contents. At any stage in the search, PLHXREAP is used to remember 
which higher-level index record pointed to the one that is currently 
being searched. If the one currently searched does not include the 
desired key, then the higher-level pointer is invalid, and any buffer 

still containing the higher-level index Cl will be invalidated. This use 
of PLHXRBAP does not apply to backward sequential processing 
(PLHPCI is on). 


. The setting of the share option 4 control information provides the 


following functions: 

© Allows share option 4 buffer invalidation to be suppressed on all 
retrievals of index Cls, except at the level-to-stop-on (usually the 
sequence set). 

© Acquires a share option 4 hold on the sequence set when required 
and releases a share option 4 hold when necessary. 

© Allows a share option 4 hold to be (optionally) retained without 
interruption if the search terminates at (one of) the same sequence 
set Cl(s) that was held when !KQIXS was entered. 


. This decision allows |/O to be completely bypassed under the 


following conditions: 

© The search starts at the sequence set level and terminates in the 
same sequence set Cl that is already on the PLH; and 

® There is an active hold that is to be retained without interruption. 

In this case, skip-sequential GET-for-update does not usually 

require any more 1/O under share option 4 than under other share 

options. 

Minus one is set into the caller’s return register 0 to indicate that 

the hold was retained without release. 
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Diagram BU3. Search Index 


PLH 





PLHXEO 
PLHXSEO 
PLHXBAD 






O>; 


|XS017 


10. Read index record identified by PLHXRBA. 





See Diagram DA, GETBUFF. 


Error detected Ep (37) Index header | se Jel se lel 









Index Record 1st section 
~~ Search section entry 
11. Point to first section and to first entry in section. CF) \XS020 
sits - SCIBO00 
F ; : LH 
12. Compare the section key with the desired key. bias 


PLHXLEVP 


PLHXLEVP 
PLHXEOP 


if sequence set level if higher level index 
[ee | 






Section key is not low 
(section found) 


PLHXPTRP 
PLHXRBAP 


| 





13. Save current entry information as previous if 
ee required. 








If sequence set 
peer | 
If higher level 14. Has the last section in the index record been | 


| (c) ie reached? 
db =, j Yes Mamma (6) 
YO © 
©) 


SE = Section Entry 
E = Entry 





PLH 
PLHXEO 
PLHXSEO 
PLHXBAD 


fnsextoso] se Je] 6] 
ale 


Index Record next section 1XSO50 






@) 





= Pointer field = 15. Point to next section and to first entry 
= Length (key) 


in section. eee (12) 
= Front compression ; 


= Next section entry offset 16. Positioning to previous index entry? 


PLH 


ree er 4 Ne Yes mmmmm>(21) 
¢ 
ees ee 17. 1s search only on current index level? 


ee aa ‘mmm 





anew 


Notes for Diagram BU3 


12. Front key compression: 

It is not necessary to expand the compressed key in the index entry to a 

full key before doing the comparison in this step. Instead, a ‘cumulative 

compression count” is initialized to zero before the first iteration through 
this step, and the following procedure performed. 

a. The cumulative compression count is compared to the front compres- 
sion count in the index entry. (On the first iteration these counts are 
equal because the low key in an index record is not front-compressed.) 
If the front compression count is high, then the desired key is high 
compared to this index entry, and the cumulative compression count 
is left unchanged from its current value. 

b. If the front compression count is low, the compressed key in the index 
entry is compared to the corresponding portion of the desired key. If 
the desired key is low or equal, the comparison is complete and the 
index entry has been found. (The cumulative compression count is 
left unchanged from its current value.) 

c. If the key is high (compared to this index entry), the cumulative com- 
pression count is updated to indicate the total number of bytes that 
are equal between the desired key and this index entry key (including 
both the front compression count plus the number of bytes that were 
equal when the index entry key was compared). 

See the note for step 22 for an example of front compression. 
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Diagram BS5. GET NEXT: Get Next Buffer and Read Ahead 


Module 































or label 
# 27. \s share option 4 hold in effect? 
Yes No R16 
| 
28. Check if hold has been in effect for an 
excessively long time. IKQBFC30 
See Diagram DK, Share Option 4 Hold PLHBRKHD 
Lis rea a 
Excessive time 
No excessive time 
29. Point at the next index entry. 
; ‘ ADV1X000 
30. Change index pointer into a data RBA value. GNX020 
PTATDOOO 
GNX030 






31. Is this a position-only request? 


No Yes 
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Diagram BS6. GET NEXT: Get Next Buffer and Read Ahead 



















Yes No 


Module 
R4 or label 
[Fk — Is this GET NEXT protessing? GNX030 
No Yes 
PLH | 
aa os 33. Get indicated read -ahead buffer. 
See Diagram DA, GETBUFF. 
R15 
[ - — Did an error occur during read -ahead ? GNX100 
IKOQBFA10 
j Yes GNX100 
35, Increment the read -ahead count to include GNX100 
new buffer just read in. 
AMDSB RPL ) 
ea = 36. Can read-ahead be done? GNX030 


37. Point to RDAHD index buffer (R4) and 
RDAHD data buffer (R3). 







GNX030 

Increment temporary read-ahead count. 
GNX050 

Has read-ahead been started on all buffers 

that can be read in at one time? 

ee | 
~ os 
40. Have all the buffers assigned to the PLH GNX050 


been read ? 


Notes for Diagram BS6 


36. Read-ahead is prohibited under any one of the following conditions: 
User buffers 

Data set is a catalog 

Share option 4 

Data set is an index component opened by itself, and it includes 
both fixed block and CKD volumes. 
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rmxAy 


Diagram BU4. Search Index 


P 


LH 
















. Has a higher level index record been searched 














__ (PLHXRBAP=-1)? 
os Y 
ee ri No mammummai>(20) 
i si 


19. Explicitly invalidate any buffer than contains 
that index record. 


PLHXBAD 


PLHXEO 


See Diagram DA, REPBUFF. 
20. Pick up the horizontal pointer to next index 


record in this level. 





Search index entry 
| 21. Skip subentries of a complex index entry. 


R2 
ee 


PLH 
PLHXLVL 
PLHXSEO 
PLHXEO 


22. Compare the entry key with the desired key. 


23. Save current entry information as previous if 
required. 


Entry key is not low 
{entry found) 


\| 










: i] 
if sequence set if higher level 24. Has the last entry in the section been reached? 


mee (2!) 


= Pointer field 
= Front compression — key length 
= Front compression (key) 
= Length (key) 
ig Y RO 


C—_}---— 
Og 


©} 25. Point to next entry in section. 


. Is this is a single index record search, or has 
the index jevel at which the search should be 
terminated been reached? 






No Yes 
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PLHXRBA 


v 
r 


PLHXLEVP 


PLHXROP 
PLHXSTROP 


sequence set 






PLHXEO 


vu 
cr 





IXSO53 


1XS060 
PLH 


PLHXLEVP 
PLHXPTRP 


PLHXRBAP 


higher index level 


1X$070 
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Diagram BUS. Search Index 


Notes for Diagram BU4 


19. The higher-level index record that was searched was out of date 
(because it positioned us to the current record, which no longer 
includes the desired key). The higher-level record should be 
invalidated so it is not used again without rereading from the 
data set, Bit PLHNORDD is set in PLHXSW to tell the Buffer 
Manager that this is a request for explicit invalidation. 

An out of date higher-level index record occurs if another 
program is updating the data set and has caused a CA split 
since the higher-level index record was read. 












Data 


22. The note for step 12 describes the procedure used in front compres- 
sion. Note that the cumulative compression count left after the 
last iteration of step 12 becomes the cumulative compression 
count for the first iteration of step 22, After the last iteration of 
step 22, the cumulative compression count is equal to the front 
compression count that would be used if the desired key were 
entered into this index record as a new entry (see Diagram CK). 


Example of front key compression: 

The highest key within a Cl used as the basis of the index entry 
for that Cl. For front compression, this key is compared to the 
highest key of the logically preceding Cl. All leading characters 
that are repeated in this key are eliminated. 

In the example, the first three characters (100) of the highest key 
in Cl 2 are equal to the first three characters of the highest key in 
Cl 1; therefore they can be eliminated. 

Front key compression discards the leading characters repeated 
from the previous key. The full key can be reconstructed by 
working back through the lower key entries in the index record, as 
can be seen by studying the following chart. 





Complete key F L Key after Compression 
10008 0 5 10008 
10080 3 2 --- 80 
10333 2 3 -- 333 
14000 1 4 - 4000 
14028 3 2 ---28 
23630 i¢) 5 23630 


F = number of high-order characters deleted 
L = length of compressed key 
P = pointer field (relative Cl number) 
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Diagram BU6. Search Index 





































































PLH Module 
eos 27. \s search for previous index entry? or label 
ae _ 
— 
Rid ve. 
ie ee y 
= PLHXRBAP 
Index AMDSB 28. Save the RBA of the current index record, L 
in case invalidation should be done. 
bee 29. Compute RBA of next index record one level PLHXLVL 
deeper in index structure. PLHXRBA 
aa @) - 
* (8) 1XS075 
(e) @ 30. Previous index entry required? 
- 1xS080 
PLH - ~ Yes No gamma Return 
PLHPCI | 
PLHXLEVP 31. Hes if there is no eat entry (previous entry 
PLHXRBAP information is nullified) 
PLHXPTRP No Yes ZEEp> Return 
32. Is previous entry on sequence set level? 
\ No Yes PLH 
oe Ane | aaa 
33. C te RBA of next ind d level —— 
eee (ae es . Compute of next index record one leve T—PLHxRBa | 
deeper in the index structure. PLHXRBA 
PS ees nes ae en>(5) sonnet 1xs086 
34. Does a previous entry lie in a previous section? 
P 
ves No ae 
} PLHXSEO 
35. Prepare search in previous section. PLHXEO 
[eS ceree eee = 1xs086 
36. Store previous entry offset as current. 
PLH 1X$100 
37. Share option 4? aaa 1XS110 


No sam Return 


38. Indicate share option 4 hold in effect 
(so it will be released in case it is in 


effect). 
lee Return 


PLHXSW 


PLHHELO 











* See Diagram BU4, 
Search Index. 
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Diagram CA1. Control Interval Split 







*Diagrams BK, BQ, CS 
PLH 


PLHSRU es ae 












Is this request part of a 
spanned record update sequence? 


Yes No > ) 


| 


2. Have we already acquired a 
Cl-split work area (CIW)? 


No Yes m>(s ) 


AMBL 


AMBLCIWA [—_——_—_— —_— > 











Ensure that another request 
(under this ACB) cannot split 

this or any other control interval 
before this split is complete. 


Acquire and initialize work area. 






GETVIS 
failure 


No error 





Notes for Diagram CA1 


1. IKQCISOO is called whenever a new control interval is required, 
except for the mainline entry-sequenced case. This mainline case 
applies to ESDS whenever the following conditions are satisfied: 

@® = Itis not the first PUT request to the file. 

@ No spanned record is being processed. 

@ No new control area is required. 

For this ESDS, Cl-split processing is performed by module |KQMDY. 


2. ACl-split work area has already been acquired if this request is 
part of a spanned record update sequence, and if there have been 
previous Cl-split requests in this sequence. 


Note that a spanned record update sequence starts with the second Cl 
of a spanned record. 1KQCISOO handles the first Cl without really 
being aware that it is part of a spanned record. 













Module 
or label 
IKQCISOO 
CIUNIT 
AMBL 
AMBSECB 
AMBLCIWA 
eee ee 


, 
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Diagram CA2. Control Interval Split 






















































PLH Module 
ae =F cIWw or label 
PLHIXSSV _—_— Move saved registers to CIW so save ee: CIINIT35 
area in PLH will be available. CIWAVE 
fess, i Determine type of processing: IKQCISOS 
AMDRRDS RRDS 
eee a PLH 
ESS mama) ince] 
PLHXBCB 
KSDS 
aa 
4 BCB 
7. If the current index record is pee 
a invalid, search the index again. BUFCVAL 
PL ace x 
ae f ZA See Diagram BU, Search Index. IKQIXS 
FERRECE BUF WHINY no error error HOS ae aa 
aes Ft ieee detected 
tas 
PLH 
[PLHLOAD | __ Caco ls processing keyed load or IKOCIS15 


keyed insert? 


PLHMSRT 






keyed 
insert 






keyed 
load 


Notes for Diagram CA2 


5. Registers are saved temporarily in the index search save area 
(PLHIXSSV) when IKQCISQO is entered. Because the index search 
routine may be called during the Cl-split process, this save area 
must be made available. 


7. This test determines if a new version of the index record may have 
been written under a different PLH, thereby invalidating the 
version owned by the current PLH. 


8. Keyed load processing includes initial load or resume load (additions 
to the end of the data set), and mass insert (insertions to the end 
of a control interval in sequential mode). Initial load or resume load 
is indicated by the flag PLHLOAD. Mass insert is indicated by the 
flag PLHMSRT. 


Keyed insert (or update type) Cl-split processing includes Cl 

splits caused by any of the following: 

@ Update with length change of an existing record. 

@ = Insert in front of one or more records already in the C!. 

@ Any insert in direct mode, other than to the end of the data set. 
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Diagram CA3. Control Interval Split 












Keyed load processing: 


Perform load, resume load, and 
mass insert operations for key 
sequenced data sets. 


See Diagram CB, CILOAD: 
Keyed Load Processing. 


(5) 


Keyed insert processing: 





Has it already been determined 
that a new control area is needed? 


No Yes > (12) 










Perform Cl split for update-type cases. 


See Diagram CC, CINSRT: Control 
Interval Insert Initialization. 


emis) 


12. Perform Cl split for update-type 
cases (skipping keyed insert 
initialization). 


See Diagram CC, CINSRT: Control 
Interval Insert Initialization. 


Notes for Diagram CA3 


10. This step tests for a control area split being caused because there 
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isn't enough room in the sequence set record. 


Module 
or label 


{KQCIL 


IKQCIS60 


(KaCcIU 


IKQCIS65 


1KQCIU10 


Licensed Material — Property of IBM 


Diagram CA4. Control Interval Split 


Entry-sequenced processing: 


13. 


Obtain a new control interval, 
and store the record. 


See Diagram CD, CINTRY: 
Entry-sequenced data set 
processing. 


Relative record processing: 


14, 


PLH 


PLHSRUL —— — 15. 
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Preformat next control interval. 


See Diagram CH, Preformat 
relative record data set. 


Is this the last call from a 
spanned record update sequence? 
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Module 
or label 


IKQCIS75 


CINTRY 


t{KQCIS8S 


IKOQRAP 


IKQCIS80 
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Diagram CA5. Control Interval Split 


PLH 


PLHOBCB 


Notes for Diagram CA5 


Does the return code indicate a 
failure to find space for an 
entry in the index record (—5)? 


No Yes 


| 


17. Cause a control area 
split to make room for 
an entry in the index 
record. 


mE (6 ) 


Does the return code indicate 
redrive (—1)? 


No Yes 


4 


ls any other nonzero return 
code indicated? 


No Yes 


4 


ls there a data buffer on the 
PLH? 


Yes No 





17, This routine (CINXRM) is a recovery routine, called when Cl-split 
Processing must be interrupted after partial completion, due to 
unavailability of index space in the first-level index (sequence set) 
record. Partially-filled buffers are purged, the control area split 


switch (CIWNCAS) is turned on, and Cl-split is restarted. 


18. If the redrive return code (negative 1 in register 15) is indicated, 
the whole insert or update-with-length-change operation is to be 
restarted by module IKQMDY. 
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Module 
or label 


CINXRM 
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Diagram CA6. Control Interval Split 















































































Module 
PLH PLH 
ees Return data buffer to the Ld ee aee 
buffer : 
PLHDCNV |[— eee PLHDRBA 
[punoesz See Diagram DA, Buffer Manager: 
ee aETSUFF. IKOBFALG 
\ no error error PLHDSW1 
\ detected a 
CiW SS G0) PLH 
ite! aed 22. Put the data buffer that is on TY IKaCISeS 
CIWDCNV eal WN phe ae the PLH (that is, PLHDCNV 
the data buffer with the new 
Maar data control interval). eenOne 
PLHDRDF 
PLHDRIX 
' i IKQCIS95 
PLH Stop read-ahead on all strings. a iKOCISe4 
scatng att eee 5 fe eee) 
—_ s this call part of a spanne 
PLHSRUL record update sequence, but not 
Eo) the last call? eee | 
Yes No mame (26) 
CIW 
peo eas seit 
}cIwAvVeE ——]—> 25. — Set up saved registers so they ERA 
Pe Sy will be restored correctly even 
though the CIW is not freed. 
AMBL BEE Return Peete da 
| AMBLCIWA  |— — — is there a Cl-split work area? IKQCIS91 
IKQCIS92 
rasa IKQCIS97 


Yes No 


Notes for Diagram CA6 


23. This step loops through all PLHs, turning off the BHORAHOK 
flag in the data BHD. 


24. If this call is part of a spanned record update sequence but not 
the last call of the sequence, then the Cl work area will not be 
freed. {t will be reused on the next call of the sequence. 
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Diagram CA7. Control Interval Split 
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PLH 





PLHIXSSV 


AMBL 
AMBLCIWA 


AMBSECB 


Set up saved registers so they 
will be restored correctly. 











FREEVIS the work area, and clear 
the pointer to it. 






Dequeue the split capability 


for further use. 
Game Return 


Indicate that this is the last 
call for a spanned record 
update sequence. 









PLH 













PLHSRUL 





Cciw 
= Is there a data buffer on the 
aaa own 


Yes No (23) 
q 


Scratch the buffer. 


See Diagram DF, FREEBUFF and 
return BCB. 


Module 
or label 


IKQCIS9A 


t(KQCIS99 


IKQBFA20 
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Diagram CB1. CILOAD: Keyed Load Processing 













Module 
or label 
1. Is this a call from the spanned record update 
routine (IKQSRU)? HKQCIL 
CILOAD 
Yes No m5 ) 
2. Is this the last call from the spanned record 
update routine (IKQSRU) ? 
Yes No eum) 
3. Free the new index buffer and get it back. 
See Diagram DA, GETBUFF. 
4. ls a control area split required? CILOADO1 
Yes No S/>(25) 
5. Is there a key range change? CILOAD03 
Pe 
yy Yes No mame ) 
“ 
ae 
PLH 7 _—_—_—< 6. Is current ARDB pointer (PLHOCRDB) 0? 
en ag ee 
NN 
N™ 
x“ 
“XN =a 7. Point to next ARDB. 
CILOADQ4 


8. Initialize first key range. 


Notes for Diagram CB1 


5. For key range processing, pointers in the PLH are set for both the 
current ARDB and the ARDB for the key range in which the insert 
activity will take place. If these are not the same, one key range 
must be cleaned up before the next can be accessed. Any intervening 
key ranges must also be formatted and have index records built 
for them. 


7. The pointer to the current ARDB is saved in the work area and the 
pointer to the next ARDB is updated in the PLH. 
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Diagram CB2. CILOAD: Keyed Load Processing 



































PLH : Module 
E . . or label 
=e 9. Is this the first request to the data set? 
CILOADOS 
~*G) No Yes 
10. 1s anew control area needed? 
Yes No me>(25) 
11. Perform control interval space reclamation. CILOADOS 
(KQCIR 
See Diagram CG, Control Interval Space 
Reclamation. 
12. Is a new control area still required? 
Yes No emmen>(25) 
13. Save high key from previous control area. CILQADO7 
See Diagram CL, Split CA: Perform key 
decompression and count index entries. 
CIWA 
——_——e 14, Set key entry length to 0 to represent null key. CILOAD10 
G) Get a new control area Cont area 
() 15. If the active control interval is at the end of the CILOAD11 
Index header = = control area, get a new control area. 
— aie 
— bee See Diagram CJ, Obtain New Control Area. IKQNCA 
— 
oe . If the active control interval is in the middle of CILOAD12 
the control area, get exclusive control for the CASLNK 
control area and then split the control area. 
See Diagram CL, Split CA: Split the Control Area. IKOCAS 





Notes for Diagram CB2 


11. If the Cl split routine determines that a CA split is necessary (as there 
are no free Cls available), it first calls |KQCIR, which searches for Cls 
whose contents have been erased. It reclaims their space and informs 
IKQCIL, which then attaches a reclaimed Cl. !f there are no Cls which 
can be reclaimed, |IKOQCIR informs |KQCIL, which then continues with 
a CA split. 


15. Key range processing is the same as normal except IKOQNCA0O0 allocates 
only from the ARDB for the target key range. When a key range is 
exited, the dummy (F=L=0) index entry is replaced by the high key of 
the key range. If a key range is skipped, an index record must nevertheless 
be allocated and a control area formatted. 

For share option 4, the Record Management space allocation lock 
is acquired for the file before |KQNCA is called. The lock name for 
this lock is the basic lock name for the file (see note for step 1 of 
Diagram DG), except that the last two bytes are X‘0005’. 


16. If a mass insert is being made, the packing factor is ignored, and the 
control area is split at the end of the active control interval (unless 
it is the last in the control area — see step 8). 
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Diagram CB3. CILOAD: Keyed Load Processing 










Control area 






17. Allocate a control interval from the new control 








- area, get a buffer, and move the first record into 
Control a it. 
interval 
aa > 18. Is this speed mode processing? 
wom |e 
Buffer } 





19. Write the data record. 


—_ 
record 


See Diagram DA, GETBUFF: Force write the 
new data record. 


. Get the old index buffer back to update the 
horizontal pointer and set in the last key. 


Index 
AMDSB 


See Diagram DF, FREEBUFF: Force write new 


index header index record. 





See Diagram DA, GETBUFF: Get old index 


record. 





paws 


. Rear compress the last key for entry in the old 
index buffer. 


. Insert last key into the old index record and also 
in the next level. 








See Diagram Cl, Format Index: Format old 
index record. 


See Diagram CK, Create Index Entry: Insert next 
index level entry . 






Index header 


Buffer header 


Notes for Diagram CB3 


20. If processing is being done in speed mode, the REPBUF step is skipped. 
‘1 processing is being done in recovery mode, the write is forced by 
means of the combined FREEBUFF and GETBUFF, implied by 
REPBUF. 


21. If there is not a key range change, the high key from the last control 
interval processed is picked up and rear compressed. 

22. If there is a key range change, the key range high key is picked up 
from the ARDB and replaces the key of the last entry in the record. 
The record is formatted and |KQIXE00 is called to make the next 
index level entry. 

At completion of this step, the Record Management space allocation 
lock for the file is released if share option 4 js in effect for the file. 
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Buffer 





Data control interval 


| record | 








PLH 


Index header 


CIWA 








Index header 
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Module 
or label 


CILOAD16 
IKQCIS10 
IKQCIS20 
ONEREC 


CILOAD17 


CILOAD20 
CILOAD30O 


RCOMP 


CILOAD47 
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Diagram CB4. CILOAD: Keyed Load Processing 





AMBL PLH 


aes eee 


Buffer header CIWA 


El 









interval 









AMBL PLH 
Index AMDSB RPL 


erento 


CIWA 


Notes for Diagram CB4 


















. Get the new index record back after writing old 
index record, 


See Diagram BU, Search Index: Get new buffer 
back and free old buffer. 


. Release the original data buffer. 


See Diagram DF, FREEBUFF: Release old 


buffer. 
SEE Return 


25. Allocate a control interval from control area, get 
a buffer for it, move the record, and build RDF 
in it. 













. Free new data buffer and get it back. 


See Diagram DA, GETBUFF: Free new buffer 
and get it back. 


. Is this a call from the spanned record update 
routine (IKOSRU)? 


ts 
+ 


28. Make a sequence set entry for the spanned 
record segment. 














See Diagram CK, Create Index Entry. 


a> Return 


. Rear compress the previous key. 





. Make a sequence set entry for the completed 
control interval. 





See Diagram CK, Create Index Entry: Make 
entry in index. 


Return 


25. In normal record processing, records are added to the end of a control 
interval. When the packing factor is reached, a new control interval 
is obtained. When the packing factor for a control area is reached, a 


new control area is obtained. 
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record 


tndex header 





Module 
or label 


CILOADS0O 


CILOAD60 
IKQCIS10 
IKQCIS20 
ONEREC 


CILOAD85 


CtLOAD86 
RCOMP 


CILOAD88 
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Diagram CC1. CINSRT: Control Interval Insert Initialization 










































Notes for Diagram CC1 


1. 


{KQCIU is called when a Cl split is caused by: 
@ An update with length change of an existing record. 


@ A sequential insert, if the sequence of inserts started in the 
middle of the Cl and this is the first split caused during the 
sequence. (Other cases of splits during sequential insert are 
handled by IKQCIL.) 


@ Any direct insert, other than to the end of the data set. 


Four cases of Ci splits can occur under IKQCIU processing, 
as illustrated by the following diagrams. Note that the actual 
insertion of the new record is not done by IKQCIU, but by 
IKQMDY after control is passed back to it. 


A split caused by an update with length change is handled the 
same as the splits shown in Examples 1, 2, and 3. [|KQCIU 
treats the point at which the length change is to be made as 
the beginning of a record whose length is to be changed. 


. Astring of RDFs is built as if the insert or update-with-length- 


change had completed without causing a split. This string is 
used to determine the optimum point at which to split the Cl, 
as illustrated in the examples. (Modified RDFs were copied 
into CIWAREA by module [KOQCISOO. They were copied from 
PLHWAREA, where they had been built by module |KOBLD.) 
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FREEBUFF. 


































Module 
or label 
CIW 
1, Geta scratch buffer to use as work space. IKACIU 
See Diagram DA, Buffer Manager: a IKQBFA00 
PLH Buffer GETBUFF. 
eos Fhe al 
PLHDBAD en 2. Build an RDF string in the scratch buffer to 
aa eal IRDFs | AA show logical records as they will be after 
reformatting. 
4 
/ 
CIW 
act Se 3. Is this a sequential insert? CINSRT10 
Yes No 
/ 
a 
RPL ye 4. Count the number of records 
aaa up to the midpoint of the Cl. CiW 
/ ea 
a ; 
vA Po Count the number of records up to the point 
7 where the new record is to be inserted. 
6. Return the scratch buffer to the CINSRTSO 
fl Buffer Manager. 
See Diagram DF, Buffer Manager: IKQBFA20 





3. The optimum split point is to be determined. Refer to the 


examples in step 1. 


4. The count is rounded so that the record boundary nearest the 


middle becomes the split point. 
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Diagram CC2. CINSRT: Control Interval Insert Initialization 


Example 1 
Before Cl Split After Cl Split 





RiR R|RI RI RIC 
Clo R1 R2 R3 R4 Free |D{D Clo Ri R2 R3 RX DiD| DI} D} | 
Key 10] Key 20 Key 30 |Key 40} Space |F|F Key 10 Key 20 Key 30 Key 35 FIFI FIF|D 
413 X13) 2) 1)F 
R 
Free Space Cl1 R5 Free Space 
6 











Free Space 


Free Space 





CI3 Free Space Cl 3 Free Space 








Sequential Insert.: 


The split is done so that the inserted record will become the last record in the “old’’ Cl (CI O in this example). If the inserted record won't fit 
into the old Cl, IKQCIU performs a CI split. Control returns to IKQMDY, which again determines that a split is necessary, and causes a second 
split. IKQCIL handles this second split in the normal manner for mass insert. 


Example 2 
Before Cl Split After Cl Split 





R}R 
R1 R2 R3 R4 Free |D|D R1 R2 Free Space 





Free Space RS Free Space 








. R3 RX R4 
Cl 2 Free Space Key 30 Key 35 |Key 40 Free Space 
CI3 Free Space Free Space 





Direct Insert at or Beyond the Middle of a Cl. 
The Cl is split so that after the insert is finished, half the data (or as near half as possible) will be in each Cl (CI 0 and Cl 2 in this example). 
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Diagram CC3. CINSRT: Control Interval Insert Initialization 


Exampie 3 
Before Cl Split After Cl Split 

















RIRIRIRIC : ; Rirlric 
R1 R2 R3 r4_ | Free|pip|plp| 1 R1 R R Free Space |D|DIDI | 
ClO key 10| Key 20 Key 30 | Key 40|Space| FF | F|F|D ClO lkey 10] Key 15 |} Key 20 iy EIFIFID 
413/2(1\F 2IVi1/F 
| R5 R6 Free Space Free Space 
cl Key 50 Key 60 









Free Space Ci2 


R3 R4 Free S 





Free Space Cl3 





Direct Insert Before the Middle of a Cl. 
The Cl is split so that after the insert is finished, half the data (or as near half the data as possible) will be in each Ci (Cl O and Cl 2 in this example). 


Example 4 = (‘‘the special case’’) 


Before Cl Split After Cl Split 






Free Space 


Free Space 





Free Space Free Space 


Free Space Free Space 








Free Space Cl3 Free Space 





Sequential or Direct Insert at Beginning of Cl (not update with length change). 


The normal procedure of copying the high-key records of the ‘‘old’’ Ci into the ‘‘new” Cl is not done. Instead, the inserted record is put into the 
new Cl (after control has returned to IKQMDY). This example is referred to as ‘‘the special case’’ in this HIPO. 
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Diagram CC4. CINSRT: Control Interval Insert Initialization 






ciw 
CIWNCAS L- — — 


IXHOR 


fie a oe il 
2 





. ls acontrol area split being forced because 
we are running out of space in the index? 


j Yes 2 


=> 8. Is there a free Cl (for the split) in the 
current CA? 


j Yes mp2) 


9. Attempt to reclaim empty Cls for reuse. 








ae 








See Diagram CG, Control Interval Space 
Reclamation. 






. Were any Cls reclaimed? 


No Yes - 


. Get exciusive control of the CA, and then 
split the CA. 














See Diagram CL, Split Control Area. 





. Any errors? 


Notes for Diagram CC4 


7. The flag CIWNCAS is set by IKQCISOO (subroutine CINXRM) 
because a minus 5 was returned from either the index enter 
(IKQIXE) or index format (I[KQIXF) routine, while a sequence 
set was being processed. (If the condition were detected during 
processing of a high-level index, |]KQIXE would call the CA 
split routine [(1/KQCAS] directly.) 


10. If register 15 is zero, at least one Cl was reclaimed. If register 15 is 
negative, no Cls were reclaimed. 
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Module 
or label 


IKQCIU10 
CINSRT95 


IKQCIR 


CINSRT98 


IKQCASOO 


CINSRTS9 
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Diagram CC5. CINSRT: Control Interval Insert Initialization 









Module 
or label 

PLHXBAD 
. Allocate a new Cl. SINpReA CISPL2 
















t{KQCIS10 


IXHDR 


PLHXBAD 











. Acquire and initialize a buffer for the new Cl, 
and place it on the CIW. 


1KQCIS20 




































CIW 
ciw Maare coca 
a — cIWFLGH 
¥ = 
~~ 
pa ey ~ 
15. Initialize fields. 
R6 
Zs aera 
7 
PLH ZY 
aa 
R8 
es festa al 
eee sa . Is the operation an insert (not an update 
with length change) in front of the 
7 first record of the old Cl, and is the 
4 split point also in front of the first record 
CIW / 
of the old Cl? 
ieee (ee 
/ 
Eee i)! 9 i Ng mami) 
/ 
RPL 17. Initialize fields for the ‘‘special case” 
eee 
(Example 4) acess 
/ CINSPLPT 
ears 7 
/ 
/ 
RB a lc teen 
Notes for Diagram CC5 
13. A free-Cl index entry is located by field |XINSOS (which points manner). In other words, the entry for the new Cl is made with 
to the byte immediately following the free-Cl index entry). This the key of the new record to be inserted. CIWSPLIT is 
pointer is converted to a data RBA. referenced later in |KQCIU for determining whether “‘the | 
15. Register 6 is initialized as the current ‘‘to’’ pointer for moving special case’ applies (Example 4). 


logical records from the old Cl to the new Cl. 


Register 8 is initialized as the current “from” pointer for moving 
logical records from the old Cl to the new Cl. 


The CIWFLG1 flags are initialized as required by the index enter 
(IKQIXE) routine. In particular, the flag CIWSPLIT (‘‘split 
entry’’) is set on, as required, for a normal split. It tells IKQIXE 
to take the new key that will be supplied (for the low-key 
records) and put it with the pointer to the old Cl, and to take 
the pointer that will be supplied (to the new Cl) and put it 
with the old (high) key. 

16. This test provides an optimization so that a newly inserted 
record will be placed in a Cl by itself. Instead of moving the 
total contents of the old Cl to the newly allocated Cl, the 
newly allocated Cl will be used for the new low-key record. 
This case is referred to as ‘‘the special case’’ in Example 4. 


The same procedure applies to a new high-key record so that 
will end up ina Cl by itself. 


17. The CIWSPLIT flag is turned off. This causes IKQIXE to make 
the new entry in the normal manner (not the ‘’split entry” 
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Diagram CC6. CINSRT: Control Interval Insert Initialization 






















Module 
or label 
18. Rewrite the old Ci with the flag indicating PLHDBAD CISPL201 


“possible duplicate data.’ 


PLHNODDR 
PLHNOINV BFA100 


See Diagram DA, REPBUFF: Give and get 
back a buffer. 


CIDFDDP 
Pe | CISPL202 


—> 19. Does the old Ci contain the high key for a 
keyrange or for the data set? 





No Yes 


BUFCMW 





ARDB 


CIW 


















X 21. Scan across low-key records to get to the first 
high-key record. 


RDFLL 
ROFCOUNT 


CIWDRBA _ -———— 4 __ -> 20. Update the high-key RBA in the Teta IKACIS30 
CIWRCDCT ARDB and in the catalog. 

Catalog 
RDFEXT clw CISPL204 








CIWFPTR 


CIWSPLPT 


PLHDRO 


RPLREQ 





Notes for Diagram CC6 


18. The duplicate data feature of the Cl-split algorithm protects data 
if a system crash occurs during a Cl split. 


The steps in the Cl-split algorithm are: 

A. Copy the high key records to the new Cl (on DASD). 
B. Update the sequence set (on DASD). 

C. Erase the high-key records from the old Cl (on DASD). 


If a system crash occurs between steps B and C, the split would 
be essentially complete, but the high-key records would exist in 
two places. So that this situation can be detected, the flag 
indicating ‘possible duplicate data” is turned on in the old Cl. 
This flag serves as a “busy” bit, indicating that this Cl is in the 
process of being split. The flag is turned off when the high-key 
records are erased from the old Cl at the completion of the 
Cl-split process. 


The Buffer Manager writes the buffer (with the flag on) before 
control is returned to [IKQCIU. 

For share option 4, buffer invalidation is suppressed because the 
lock on the CA protects the buffer. 


20. To update the catalog, phase |KOVRBA is called with the code 
X‘08' in the high-order byte of register 0. Register 1 points to 
field CIWDRBA. 
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Diagram CC7. CINSRT: Control Interval Insert Initialization 


Module 
or label 


CISPL220 











aera 22. Copy high-key records into the buffer for the 
new Cl. 














RDFEXT 
RDFLL 
RDFCOUNT 
ROFREPL 


PLHDFSO 
PLHDFSL 


RDFEXT 
RDFLL 
RODFCOUNT 

















R6 













Buffer 
logical record 
Buffer 
logical record 







cIW 


































RDFEXT CIWDBAD 23. Set up the CIDF fields for the new Cl. a CISPL230 
CIDF 
24. Determine the key to be used for the low-key me 
aed control interval. a 
eIWKADDI 
CIW 
----- > 25. Write the low-key Cl. CISPL244 
See Diagram DA, REPBUFF: Give and get BFA100 
back a buffer. 
Notes for Diagram CC7 
22. If journaling is active (AMBJRACT), then journaling is done the record that is being inserted now (at the end of the 
for each logical record that is moved to the new Cl. (See low-key Cl) and the first record of the next Cl. 
Diagram FD.) Journaling indicates that the RBA of a logical record 25. For share option 4, buffer invalidation is suppressed because 


is being changed. there is complete protection by the lock facility. 


23. If no records were moved to the new Cl, the Cl is set up as an 
empty Cl. 


24. In all cases except sequential insert, the key of the record that 
will be the last record of the low-key Cl is the basis for the key 
of the Cl. For sequential insert, the key of the first record of the 
high-key Cl is the basis for the key of the low-key Cl. Then, 
for purposes of index entry, a compression operation is done on 
this key. 


In all cases except sequential insert, the compression operation 
is normal rear compression. This consists of finding the first 
byte necessary to distinguish between the key of the last 
record of the low-key CI and the key of the first record of 

the high-key Cl. Ail bytes following this distinguishing byte 
are discarded for purposes of index entry. 


For sequential insert, the compression operation consists of 
taking the last nonzero byte of the key of the first record of 
the high-key Cl and decrementing it by binary one. All zero 
bytes following this nonzero byte are discarded for purposes of 
index entry. This allows as many key values as possible between 
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Diagram CC8. CINSRT: Control Interval Insert Initialization 










CIWENT1 
CIWORBA 


~26. Make an entry in the index (so there is a key 
: in the index for the low-key Cl). 


See Diagram CK, Create Index Entry. 


tee ie 27. Was there room in the sequence set record for 


the index entry? 


Yes No map (37) 
| 


CIW 
=>28. Does the ‘‘special case’ apply (steps 16 
sere and 17)? 

No 

PLH 
pee cess | 
=> 29. Change the RBA of the buffer on the CIW to 
Peogice = = 4H that of the old Cl, and clear the buffer. 


Notes for Diagram CC8 


26. Normally.the entry is made in the ‘‘split entry’’ manner. The new 
key is put with the pointer to the old Cl, and the pointer to the 
new Cl is put with the old key. For ‘‘the special case’’ (Example 4), 
the entry is made in the normal manner. (A complete new entry 
is created.) 


27. If there wasn't enough room for the entry, the index enter routine 
(TKOIXE) will have returned a minus 5 in register 15. Control is 
also given to step 37 for any other errors (such as an |/O error) 
detected by IKQIXE. 


For a minus 5 return code, Cl-split processing is forced, along with 
a forced CA split. Ci-split processing is re-entered at IKQCIU10. 


29. Records are deleted from the old Cl by copying the records to be 
saved into a scratch buffer (on the CIW). 
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CcIW 


| CIWDRBA | 


Buffer 


Module 
or label 


IKQIXE00 


CISPL247 
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Diagram CC9. CINSRT: Control Interval Insert Initialization 


RDF 


ROFEXT 


ROFLL 
ROFCOUNT 


CIW 


CIWSPLPT 
CIWOBAD 
CIWOBCB 





Module 
or label 










RDF 


m~30. Copy the low-key records into the buffer 


on the CIW. RDFEXT CISPL250 


ROFLL 
ROFCOUNT 


P| 
a 


CIW 
31. Set up the CIDF fields. 
4 


CIWDBAD 


CISPL.270 


CIDF 


CIOFDD 
CIDFLL 


CIW CISPL280 
32. Write the high-key Cl. 


: CIWDBCB IKQBFA20 
See Diagram DF, Buffer Manager: FREEBUFF. 


BCB 


BUFCMW 
BUFCVAL 


33. Invalidate the buffer on the PLH PLH 


(the old copy of the old Cl). 
PLHDBCB 


BCB 


(as) BUFCVAL 


Notes for Diagram CC9 


30. Register 6 points to the first byte of freespace in the scratch 
buffer at completion of the copy. 


31. If no records were moved to the buffer on the CIW, the buffer 
is set up as an empty Cl. 
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Diagram CC10. CINSRT: Control Interval Insert Initialization 

























Module 
PLH or label 
poe PLH 
PLHDCNV — — — — —}=4. Return the buffer on the PLH to the ee ee! CISPL290 
ait oe oe a Buffer Manager. 
See Diagram DA, REPBUFF: Give BEA100 
buffer to the Buffer Manager. 
AMDSB 
AMDSB AMDLNCIS 
AMDLNCIS F- — — — — — =» 35. Update the count of the number of Cl aan 
rT SC~S@Y splits in the local statistics. 
36. Set return code to minus one in R15 
to indicate that |KQMDY must retry 
its modification operation. 
PLH 
Retum mas 
37. Invalidate the index buffer. CISPL297 


BCB 


BUFCVAL 


Return 


Notes for Diagram CC10 


34. The PLHNORD flag is set on in the PLHDCNV Buffer Manager 
Parameter List so the Buffer Manager will keep the buffer and 
not give any buffers back to IKQCIU. 
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Diagram CD1. CINTRY: Entry-sequenced Data Set Processing 


Module 
1. Is this a call from the spanned record update or label 
routine (IKQSRU)? 1KQCISOO 
y a CINTRY 
7 Yes No m4) 
a” 
Si 
PLH ” 
PLHSWT2 —_——— oe 2. Is it the last call from that routine? 
N 
ne No Yes EEE Return 
“XN 
“XN 
~ 
3. Is a new control area required? 
Yes) = No E>(7) 
= 4. \s this the first request for this data set? CINTRYO3 
= 


PLH 


— 
PLHSWTCH --— No Yes eee ) 
~ § 
— 


5. Is a new control area required? 


i Yes No (7) 
- 
AMDSB = 






- 
AMDCIPCA - | Control area 
AMDCINV 
os ead bear ee 6. Get a new control area. CINTRY10 
~ 
= ~N See Diagram CJ, Obtain a New Control Area. 


ARDB 


ARDHRBA =< . Compute the RBA of the new control interval. ARDHRBA | CINTRY20 
PLH 
PLHDCNV Se . Release the previous control interval buffer. 


See Diagram DA, GETBUFF. 


. Get a buffer for the new control interval and BUFFCI 
move the user’s record into it. ONEREC 


Return 
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Diagram CE1. Duplicate Data Recovery 


















































Module 
or label 
IKQDDR 
. Set return code to default of zero. 
RPL 
--— . CNV access? 
No Yes ess Return 
R10 | 
= =; > . . 
AMBL s 3. Is the request being processed for an index 
-T 4 component, or for a non-KSDS? 
ae ae 7 
No Yes nee Return 
aaa 4 
/ 
/ 
AMDSB / 
faa 
4. ADR access? 
eee Yes No 
7 
7 
RPL y, 
Be ne Seal 7 : 
Zs 5. Is he anes a GET with no 
eee ah 
Yes No a>? ) 
Ghevigentes) 
RPL 
6. Set warning code. 
emmmp> = Return 
R15 DDRO10 
7. Set internal error code E53. . Rota ee 
Return 
Notes for Diagram CE1 
1. KKQDOR is called by the Buffer Manager when a Cl is being 4. \f ADR access is being done, it is assumed that the index is not 


retrieved and the CIDFDDP (‘‘possible duplicate data’’) bit is on 
(except when the Buffer Manager has been explicitly told not to 
check CIDFDDP). 


CIDFDDP is set on when a copy of records in a KSDS Cl is about to 
be made as part of a Cl split (see Diagram CC). If a system crash 
occurred during the split, two copies of the records would be left 
on DASD. CIDFDDP prevents any program from accessing the old 
copy of the records once the new copy has been created. Note that 
because CIDFDDP is set on before the new copy is actually created, 
there might not actually be duplicate records in the Cl. 


IKQODR performs recovery when keyed access is being done. 
IKQDDR determines, using the index, whether an actual 
duplicate data situation exists. If it does exist, the old copies of 
the duplicated records are removed from the Cl. 


The correct Ci is written to DASD if the retrieval is part of an 
update or insert operation. Otherwise, the correction is only made 
available in the buffer. 


2. If CNV access is being done, no attempt at duplicate data 
recovery is made, and no diagnostic is issued. No attempt is made to 
do recovery because the index is not available. No diagnostic is 
issued because CIDFDDP does not necessarily indicate an 
abnormal condition. (The user can validly use the entire Cl, 
including the CIDF, as long as he only uses CNV access.) 
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available. No duplicate data recovery is attempted; a diagnostic 


is issued. 


. For ADR access when the request is a GET-with-no-update 


(GET NUP or GET NSP}, the request is completed for the user, 
but a warning (R15=0) diagnostic is issued. RPLCIWNG (X’ 1C’) 
is the RPL error code for this warning. 


For ADR access on GET-with-no-update, the user runs the risk 
of processing duplicate records if he fails to test RPLCIWNG. 


CIDFDDP is turned off at this time to allow VSAM to complete 


the request. 
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Diagram CE2. Duplicate Data Recovery 




























Module 
PLH or label 


PLHECB DDROQ20 





















R1 R5 
aes: | “— — ~{= 9. Get duplicate data recovery lock and ose ee DDRO30 
7 ~~ GETVIS work area. - 
AMBL 
AMBDECBT 
DDRW 
10. Save return register and areas of the a DDRO60 
Z i : DDRWPISV 
ECHSAVE PLH that will be used during duplicate POD RIPISN: | 
PLHIXSSV data recovery. DDRWIXS 
PLHXSOP DDRWXSOP 
PLHXEO 
PLHXEOP DDRWXEOP 
PLHXLEVP DDRWXLEV 
PLHXSEOP DDRWXSEP 
DDRW14S 
R6 PARM 
PARMBAD }- ~ __ _ 
rd => 11. Do an index search with the search 
argument being the key of the first R4 
record in the Cl to be processed by ie. es =| 
duplicate data recovery. 
PLH 
See Diagram BU, Search Index PLHIXBO IKOIXS 
Notes for Diagram CE2 
9. It has been determined that actual duplicate data recovery is to be Register 4 is set up as a pointer to the next record in the Cl to be 


performed. A lock is obtained to serialize all duplicate data processed by duplicate data recovery. 
recovery for this ACB. A work area is GETVISed. The only 

purpose of the lock is to make the storage requirement for 

duplicate data recovery predictable (that is, one work area 

per ACB). 


Register 1 is copied into register 6 to serve as a base for the 
Buffer Manager Parameter List. 


10. The information saved will be destroyed when IKQDDR calls 
index search (IKQIXS) and the Buffer Manager (IKOBFA). 


11. A search is done against the index record in working storage to find 
the entry that corresponds to the key of the first data record in the 
Cl to be processed by duplicate data recovery. 


The flag PLHIXBO is set on to tell index search not to follow the 
horizontal index chain pointer if it fails to find the appropriate 
index entry in the current index record. 
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Diagram CE3. Duplicate Data Recovery 


PL 


PLHXBAD 


PLHXEO 






R6 


H IXHDR >: 


PLHDCSZ 








(XCINL 
IXPMASK 


IXENTRY 


IXENTRYP 


PARM g 
es | 
PARMRBA 


IXENTRY 






No Yes 


J 










Yes No 










IXENTRYF 


IXENTRYL 


CIDF a 


CIDFOD 





‘ 
\ 


Notes for Diagram CE3 


12. 


13. 


14. 


15. 


16. 


2.126 


The record scan that follows will determine if the index entry 
located by the index search (step 11) is correct for each 
additional record in the Cl to be processed by duplicate data 
recovery. The search for duplicate records ends when the first 
duplicate record is found. All subsequent records will have higher 
keys and will be duplicates also. 


The record count accumulator (ODDRWRC) used during the scan 
is cleared at this time. 


CIDFODOP is turned off here because addressability is now available 
to the CIDF. 


If the index search did not identify the first logical record as 
belonging to this CA (that is, its key is greater than the highest 
key in the CA), then it and all records in the Cl are duplicates, 
and the scan stops here. 


If the index entry points to a different data Cl, then the first 
record and all records following it are duplicates and must be 
erased from the Cl. 


At this point it has been verified that the first logical record in the 
Cl is not a duplicate record. Now the rest of the logical records in 
the Cl must be checked. The algorithm for making the check takes 
advantage of the nature of front compression. (See Diagram BT for 
a description of front compression.) 
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. Initialize RDF pointer for record scan. 


. Turn off the “duplicate data” bit. 


. Did the index search return code indicate that 
no entry was found? 


— — — 15. Does the pointer in the index entry point 
to the control interval being processed by 
duplicate data recovery? 


. Set up for comparison of the keys of 
additional records in the Cl against 
the key in the index entry. 


Module 
or label 


re (23) 


DDRO90 


om>(2;) 





PARMFSO 
ae 


Because front compression consists of eliminating the leading 
positions in the index entry key that are duplicates of the 
preceding Cl’s key entry, all keys in the Cl have the same 
number of identical leading characters as the front compression 
count, The algorithm for checking records after the first 

record takes advantage of this fact. Because there is no preceding 
Cl for the first index entry in a sequence set record, it will 
always have a front compression count of zero. This is 
acceptable within this algorithm. 


Register 2 is set up as a pointer to the index entry key. 
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Diagram CE4. Duplicate Data Recovery 















































Module 
R4 = . Save the next record pointer as current R8 or label 
{ek -—-—~ record pointer, and increment the next aaa 
. DOR120 
\ a record pointer to the next record. 
N 
PARM K R4 
eins a 7 Cd 
SSA et ee . Are we past the last record? 
aa No Yes 
J R7 
RDF Reames 
eaaen oDRI30 
19. Position the RDF for th d. DORW 
ADEEXT eee osition the RDF for the next recor 
|__|] 
Sa / 
7 
7 
/ 
DDRW 7 
fe ea ele 
7 
R8 =; = . Determine the number of leading bytes that DDR150 
[ete are equal between the key of the current 
record and the key of the next record. 
R4 
R1 ; : ; 
iF oe gs ee . Compare the number of identical leading 
bytes with the front compression count. 
7 
7 
DDRW Pag Less than mep>(2:) 
ae 
7“ 
SR Greater than or equal ma (22 ) 
Notes for Diagram CE4 
8. If the current record is the last record, the search is ended with no This step places the number of identical leading bytes in R1. R14 
record found. contains the address of the first byte that is not identical in the 


next record. 


19. If the current RDF is an extended RDF for multiple records of the 
same length, the record count accumulator (DDRWRC) is 
compared to the record count in the extended RDF. If they are 
equal, VSAM moves to the next RDF and resets DDRWRC 
to zero. If they are not equal, one is added to DDRWRC, and 
RDF positioning remains unchanged. 


\f a duplicate record is found that is one of a string of records of 
identical length, DDRWRC contains the number of nor-duplicate 
records in the string, 


20. The key of the current record, which is not a duplicate, is 
compared with the key of the next record to get the number of 
leading bytes that are identical. This number must be equal to or 
greater than the front compression count of the index entry 
for this Cl. If it is less, the next record is a duplicate, and the 
search terminates. 


If the number of identical leading bytes is greater than or equal to 
the front compression count, the part of the key of the next 
record that corresponds to the index entry key must be compared 
to the index entry key. (The length of the compare is the length of 
the key entry in the index.) If the part of the key in the record 

is greater than the index entry key, the record is a duplicate. 
Otherwise, the search continues. 


Licensed Material — Property of IBM Section 2. Method of Operation 2.127 


Diagram CES. Duplicate Data Recovery 










22. Is the part of the key that corresponds to the 
index entry of the next record greater than the 
index entry key? 


Yes No ma >(17) 





23. Set the new freespace offset in the CIDF. 





=>24, Determine the new freespace length. 








> 25. Clear the freespace. 


Notes for Diagram CE5 


23. At this point, the first duplicate record has been found. R4 points 
to this record, and R7 points to the associated RDF. Jn the 
logic that follows, this record and all following (higher key) 
records will be erased. 


24. If the RDF of the first duplicate record is not an extended RDF, 
the RDF pointer is merely incremented by the length of a simple 
RDF, and the RDF of the first duplicate record becomes 
absorbed as a part of the new freespace area. 


If the RDF associated with the first duplicate record is an 
extended RDF, the record count accumulator (DDRWRC) 
is equal to the number of non-duplicate records this RDF is 
associated with. 


If DDRWRC is zero, all records identified by the extended RDF 
are duplicates, and the entire extended RDF becomes freespace. 
If DDRWRC is one, the extended RDF must be converted to a 
simple RDF, and the extension becomes freespace. !f DDRWRC 
is More than one, the RDF remains intact, but with a new count. 
Additional RDFs associated with any subsequent records are 
absorbed as part of the freespace. 


At completion of this step, R7 contains the freespace length. 
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R6 
: PARM 


PARMBAD 

















CIDFDD 


CIOFLL 


RDF 
RDFEXT 
ROFCOUNT 









Buffer 


Module 
or label! 


DOR180 
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Diagram CE6. Duplicate Data Recovery 












































Module 
AMBL. 26. Is exclusive control held for update of this or label 
Na soe! - 17 data Clon DASD? 
ae 
AMBHIRBA 7 
AMBSTRID / Yes No 
a / 
y 
PARM 
R6 Z 
27. Write the corrected, C! to DASD. DODR230 
PLHEHELD 
See Diagram DA, REPBUFF: Give and BFA100 
get back a buffer. 
DORW 
DDRWXSEO 
DDRWXEO sd tine 28. Restore index positioning information DDR250 
DDRWXEOP saved from PLH. 
PLHXSOP 
PLHXSEO 
——-{ 29. Clean-up and exit. DDR260 
PLHXLEVP 


AMBDECB 


AMBDECB 


PLHECB 





PLHECB 


Notes for Diagram CE6 


26. The corrected Cl (including the case of merely turning off CIDFDDP 
when there are no actual duplicate records) is written to DASD 
only if exclusive control for update has been obtained previously 
(that is, if the request was a GET UPD, PUT, or ERASE). 


27. Note that this is a recursive call to the Buffer Manager because 
IKQDDR was called from the Buffer Manager. Exclusive control 
is, Of Course, not released by this request to the Buffer Manager. 
The request is handled so that the Buffer Manager will complete 
the I/O before returning to |KQDDR. 


For share option 4, buffer invalidation is suppressed because the 
lock on the CA protects the buffer. 


29. Clean-up includes setting the correct return code, freeing the storage 
occupied by the DDR work area, releasing the duplicate data recovery 
lock, and reacquiring the PLH lock (PLHECB). 
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Diagram CF1. Get Control Interval by Key 




































PLH Module 
aaa Die, 

PLHXBCB — — -|—> 1. Is there an index BCB? IKQGCI 

No Yes 

BCB | 

BUFFLAG2 _ — — — => 92. Was the buffer written by anothe 
eee) task? | 

No Yes 
PLH 
PLH 3. Set the “restart Ea 
required” bit. 

faa PLHFLAG 

PLHFLAG => 4. Is arestart or reread required fia GC1010 
Pot a required for the index record? 

PLHPKEYA 
pre Yes No 

AMDSB 5. Get the pointer to the key of the previous GC1020 












request and the key length. 


AMDKEYLN 






. Is a reread required? 






Yes No 





PLH 7 
7 
Sees 
PLHFLAG 

















i / 7. Initialize to do a top-down PLH 
index search, and read the ese 
data d. 
ot PLHXRBA 
AMDSB AMBL aes 





AMDHLRBA AMBLIX 


™ 








Notes for Diagram CF1 


1-3. The PLH is tested to determine if it contains a pointer to an 
index BCB. If there is no index BCB, or if the buffer contents 
are invalid, a top-down index search must be done. If there is an 
index BCB but the buffer contents are invalid, the ‘‘restart 
required’’ bit (PLHRST) is set to force a top-down index search. 


4. If either a restart (PLHRST) or a reread (PLHRREAD) is required, 
positioning is performed by a top-down index search to the 
previous Cl. 


Note: PLHRST is set when an event has occurred that makes 
positioning information unreliable, Positioning can be 
re-established by using the key saved from the last record 
retrieved. If PLHRREAD is set, it indicates that positioning 
still points to the correct sequence set record, but the record 
must be reread and searched for the given key. PLHRREAD 
is set only if the BUFWRINV bit (buffer invalid) was set. 


5. This step sets up repositioning to the last Cl that was successfully 
retrieved. The key is that of the last record in the Cl. 


6-7. If a restart is required, a top-down index search must be done 
because positioning information is no longer valid. 
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Diagram CF2. Get Control Interval by Key 





Module 
or label 
8. Get the data Cl, without using the track hold GC1I030 
feature. 
See Diagram BP, LOCATE DIRECT. IKQLCD 
Normal Error 
return return 
9, Was there a data read error 
(E64)? R15 
Yes No CRM Return 
PLH 
—- — - > 10. Is this the second data read 
feel error for this Cl? 
R15 
Yes 
11. Turn off the “positioning” and “wait” bits. GC1040 


PLH 
PLHRSCNT _— 12. ls a spanned record being retrieved? 


Yes No 


13. Subtract one from the segment count. 


Notes for Diagram CF2 


8-10. Locate Direct is called, and share option 4 processing is 12-17. 
ignored. The last Cl processed is located to re-establish 
positioning for retrieving the next Cl. 


If no errors occur, normal processing continues. If any error 
has occurred (except a data read error), control returns to 
the caller. 


\f there is a data read error, the ‘‘skip’’ bit (PLHSKIP) is 
tested. If the bit is on, |KQGCI continues to call IKQGNX 
(via a loop) until a successful retrieval occurs. A data record 
is reread only if it is in the first Cl is a contiguous group 

of ‘‘non-readable” Cls. 

11. The “positioning’’ (PLHPOS - X’40') and ‘“‘wait’’ (PLHWAIT - 
X‘'10’) bits are reset at this point. The combinations of 
these two bits have the following meanings: 

.1.1.... The next Cl has been requested; a wait is required 
for 1/0 completion. IKQGCI must cal! the Buffer 
Manager to retrieve the Cl. 


.1.0.... The next Cl is in the buffer and available for 
processing. 

.0.1.... Invalid combination; should not occur. 

.0.0.... The pointer is still positioned to the previous Cl. 1/O 


must be performed for the next Cl. 
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\f spanned records are being processed and restart occurred, 
Locate Direct has repositioned to the first segment of the 
spanned record. That segment and all following segments 
(including the last segment read) were bypassed before the 
restart occurred. A test is made to determine if on/y the 
first segment has been previously read (step 14). 
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Diagram CF3. Get Control Interval by Key 


Module 
14. Was only the first segment retrieved? or label 
Yes No 
15. Get the next segment of the GCI045 
spanned record, without using 
the track hold feature. 
PLH See Diagram BS, GET NEXT. IKQGNX 
= > 16. Was “end of data’’ returned? 
\ R15 
\ No Yes <=> Return 
\ 
\ 
\ 
\ 17. Subtract one from the segment 
\ count. |s it now zero? 
\ 
Yes No Mip>(5) 
\ 
18. Is either the ‘‘positioning” or the “wait” GCI050 
bit on? 
No Yes 
PLH 
19. Reset the ‘‘wait” and “‘end of data’’ bits. PLHFLAG 





Notes for Diagram CF3 


18. A test is made to determine whether the next Ci has been read 
and is ready for processing. If the “positioning” bit (PLHPOS) 
is on and the “wait” bit (PLHWAIT) is off, the next record is 
available. 


19-22, If no read-ahead has been done for the next Cl, it must be read 
and waited on for I/O completion. If a data read error occurred, 
the Cl is reread. If a second data read error occurs, the Cl is 
skipped (along with any contiguous Cls following it that also 
cause a data read error) until a Cl is read that does not cause a 
data read error. 
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Diagram CF4. Get Control Interval by Key 






















Module 
or label 
20. Get next Cl, without using the track hold GC1060 
feature. 
See Diagram BS, GET NEXT. tKQGNX 
Normal Error 
return _return 
21. Was there a data read 
error? (E64) ts 
Yes No Cp Return 


Zz 22. \s this the second data 
a read error for this Cl? 


ae Yes No Ca} Return 















PLH 
ie a 
a 
aes 
\ 
\N 
\ 
\|[ 23. Reset the “skip” bit. 
24. Was ‘‘end of data” returned? 
No Yes ia led Return PLH 
Se 
25. Initialize the PLH to point to the first record 
in the Cl. 
[aa 
Notes for Diagram CF4 


23-25, The “skip’’ bit (PLHSKIP) is reset, and if an ‘‘end of data’’ 
(PLHEOD) condition did not occur when reading the last 
Cl, the PLH is set to point to the first record in the Cl. 
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Diagram CF5. Get Control Interval by Key 
















































Module 
PLH or label 
ae) » 26. Was “end of data’”’ returned? GC1080 
a= R15 
Fr No Yes a> Return 
Seay ©. 
~ 
“XN 
‘ “NN 
BCB ' 
bo ce oe . Get the pointer to the BCB. Is the buffer valid? 
Be 
BUFFLAG2 * ~ 
aa Yes No 
BCB 
28. Indicate that the buffer is Dice erent | 
invalid, and force a reread 
of the buffer. PLH 
. Set the “CNV” bit in the RPL (retrieve RPL GC1090 
entire Cl). 
. Move Cl to user work area. 
See Diagram CT, Move Control Interval ens) IKQRTV 





to User Work Area. 


. Reset “CNV” bit in the RPL. 






Normal Error 





PLH 







PLHDBAD 


PLHDCSZ , Establish addressability to the RDF. 


Notes for Diagram CF5 


26. 


27-28. 


29-31, 


32-35. 


2.134 


“End of data’ must be tested again because this step could have 
been branched to from step 18. Either read-ahead or the call to 
Locate Direct (IKOQLCD) might have reached the end of data 
condition. 


If the buffer contents are not valid, the ‘‘valid’’ bit (BUFCVAL) 
is turned off, and the “reread” bit (PLHRREAD) is turned on 
to force a reread of the buffer. A branch to step 5 is taken 

to reposition to the last Cl read. 


If the buffer contents are valid, the Cl is moved to the user work 
area, or the pointer to the buffer is stored in the user work area. 
The “CNV” bit in the RPL must be turned on to indicate Cl 
processing (in IKQRTV) and reset after return. 


Addressability is established to the first RDF pair in the Cl to 
determine whether a spanned record is being processed. 

If it is, the spanned record count (PLHSRCNT) is incremented 
by one to indicate the number of segments read. For nonspanned 
records, the count is always zero. 
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return return ==> Return 











R15 


error code 
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Diagram CF6. Get Control Interval by Key 





Buffer 


ROFFLAG <= 


933. Is this a spanned record? 


No Yes 


\ 
\ 


record count. 


AMDCINV 


nonspanned records). 


PLHRBA -—-—— . Update the PLH and the RPL. 





RPL 


RPLREQ 
RPLOPTCD 





its key in the PLH). 







38. Is this the middie or last segment of a 
A spanned record? 


PLH / 











PLHDBAD 
PLHDFSO 
PLHDFSL 


Buffer / Wz 


ROFLL 


\ 


Notes for Diagram CF6 


36. The PLH and RPL are updated to indicate the C! length and 
its RBA, and the RPL option and request type codes are saved 
in the PLH, 

37-40. The last record (or only record, if spanned) in the Cl is located, 
and the key is moved to the PLH in case repositioning or restart 
is required, 

Note: For spanned records, only the first segment can contain 
the key; therefore, there is no key to save in the PLH when the 
Cls containing the middle or last segments are processed. 
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34. Add one to the spanned 






. Save the spanned record count (zero if 






. Locate the last record in the Cl (to save 


No Yes 


. Get correct RDF for the iast record in the Cl. 





Module 
or label 


PLH 


PLHSRCNT 


GC1095 







PLHORO 
PLHDRL 
PLHDRRBA 
PLHATC 
PLHOPT 



















RPLRLEN 
RPLRBA 


















GCI100 
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Diagram CF7. Get Control Interval by Key 





















Module 
or label 
AMDSB : 
ey . Get the key of the last record in the Cl, and pal 
save it in the PLH. ea 
PLHFLAG 
. Reset ‘‘wait,’”” ‘‘PLH set,” and GCI110 
“positioning” bits. 
. Start a request for the next Cl, indicating 
read-ahead (I/O overlap). 
See Diagram BS, GET NEXT. IKQGNX 


Return 


Notes for Diagram CF7 


41-42. The ‘‘wait’’, ‘“‘PLH set’, and “‘positioning’’ bits (PLHWAIT, 
PLHST, and PLHPOS) are turned on for the next request, 
and read-ahead is started for the next Cl. 
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Diagram CG1. Control Interval Space Reclamation 




































































* Diagrams CB, CC Module 
: or labet 
CIWA 
i eae sabi fee 1. Was control interval space reclamation alread (KQCIR 
CIWFLAGS Noane . CIROO1 
No Yes 
$ CIWA 
Data AMDSB aaa 
it fas all 2. Indicate space reclamation was done. CIWFLAGS 
AMODELR =n 
— 3. Were record id in thi 
AMOLDELR e records erased in this data set? 
Yes No 
: AMBL 
Data AMDSB_PLH AMBL Cae) 
ae rT 
AMDCIPCA PLHSTRID 4. Take data control area into exclusive control. RGETEX 


AMBLPLHN 





AMBHIRBA 

















PLHDRBA 


AMBALIST 


AMOCINV 





Exclusive control error 


Sequence Set Record 





PLH 


Index PLH 









5. Position PLH to the rightmost index entry in 


Data AMOSB sequence set record. 


AMOCINV 








POINT 





6. Is current index entry for a spanned record? CiIRO10 


No Yes 


4 


7. 1s only one index entry in sequence set record? 


Sequence Set Record ” a“ 





No Yes 


Notes for Diagram CG1 


If IKQCISOO determines that there are no Cls available for a split 
(IKQCAS00 is required), |KQCIR is first called. IKQCIR ensures that 
records have been deleted from the data set and then reads every Cl 

within the appropriate CA, looking for all CIDFs that indicate that all 
records in the Cl have been deleted. If such a Cl is not found, then the 

CA must be split. If one or more deleted Cls are found within the CA, 

the index sequence set is adjusted to indicate that Cls are available. Control 
returns to |KQCISOO to procass the now-freed data Cl. 
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Diagram CG2. Control Interval Space Reclamation 










Data AMDSB 
compute its RBA. 


No Yes 


4 




















Error detected 


Yes No 


4 


Sequence Set Record 





index PLH 





record changes. 


(8) 


Notes for Diagram CG2 


13. The current index entry is the one pointing to the empty data Cl, 
and the previous entry is the one to the right of this in the index 
record, except where the current entry is the first (rightmost) entry 
in the index record. In this case, the pointer from the next 
entry (to the left) is transferred to this entry and the next entry 
is used as the current entry, with the entry that points to the 
empty data Cl now acting as the previous entry. This modifica- 
tion is necessary in oiuer to allow the use of uniform processing 
for both cases, 


The resulting index entry (Er) is formed from the current 
(Ec) and previous (Ep) entries in the following manner: 


If the front compression count (Fp) of the previous entry is 
greater than, or equal to, the front compression count (Fc) of 
the current entry, the resultant entry consists of the key (Ke), 


Example: 


fe Be ae EB: Ke Fe lc Pe Kp Fo Lp Pp 





Examole: 


2. Fe= Fp: 


Ke Feblc Pe Kp Fplp Pp 





Ke Fr Lr Pr 
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8. Save pointer to current data control interval and 


9. Test if this data control interval is already 
attached to the PLH. 


10. Scratch the previous data control interval (if any), 
and read the current data control interval. 


See Diagram DA, GETBUFF. 


11. Is the current data control interval empty? 


12. Indicate space was reclaimed. 

13. Find a previous and a current index entry (Ep, 
Ec) and construct a resultant index entry (Er) in 
the space of Ec and Ep. 
. Scratch previous entry (Ep). 


. Enter the pointer to the empty data control 
interval into the Free Ci Pointer List. 


. Update index header to reflect the sequence set 


. Position index PLH to next index record. 





Module 
or label 


CiRO20 


CIWA 






CIWSAVP 
CIWDRBA 








CIWDBAD 
CIWDFSO 
CIWCIRSW 


CIRO30 





bi 


Sequence Set Record 


heoder [FF] |e [Ec] Ep] E | 
ce CIRO40 


Sequence Set Record CIR110 


it 4 
= G 


E = index entry 

Ec = current entry CIR130 
Ep = previous entry 

Er = resultant 

F = free data C! pointer 


front compression count (Fc), and key length (Lc) of the current 

entry, and the pointer (Pp) of the previous entry. (See examples 

1 and 2.) 

If the front compression count (Fp) of the previous entry is less 

than the front compression count (Fc) of the current entry, the 

resultant entry consists of: 

Kr: The first (Fc-Fp) characters of the previous key (Kp), 
followed by the current key (Kc). 

Fr: The front compression count (Fp) of the previous entry. 

Lr: The key length (Lc) of the current entry plus the difference 
between the front compression counts (Fc-Fp). 

Pr: The pointer (Pp) from the previous entry. 


This is also shown in Example 3. 


Example: 
3. Fo => Fp: 
Ke Fele Pc Kp Fp Lp Pp 


2 flrs for efafr fo fol foo fa 2] a ole J 
Soe 





1st (Fc-Fp) 
characters of 
Kp + Ke 


Le + (Fe-Fp) 
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Diagram CG3. Control Interval Space Reclamation 



















PLH Module 
ae —_—— 18. Is the end of the sequence set record reached? or label 
—o— — 
PLHXEO — 7 
a: Index Header gar Yes No ms ) 
| ss IXLENTRY 
CIWA 
CIWCIRSW ——_——— ee oe 19. Test if space actually was reclaimed. CIR150 





Yes No 





Work Area Saquence Set Record Formatted Index Record 






















——T> 20. Format sequence set record. IKQIXFOO 
See Diagram Cl, Format Index. 
Noerror Error detected Data 
21. Write sequence set record. 
See Diagram DA, REPBUFF. CIR160 
PLH Noerror Error detected a 8 (24) 
aa ARDB 
eal 
— — 4» 22. Update high-key RBA in data ARDB if required. IKQRBA 
- PLH 
PLH R2 —— 7” 23. Establish correct index PLH positioning. ee CIR170 
aa 
ns See Diagram BU, Search Index. 






key length 


Error detected No error detected 


t 
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Diagram CG4. Control Interval Space Reclamation 











old sequence set record 


PLH 


PLHINDEX 


= CIWA Module 

LH Sequence Set Record —-—T 24. Indicate space wasn’t reclaimed, scratch new or label 

PS agonal [| sequence set record, and read the old one. ciR180 
PLHINDEX 


See Diagram DA, GETBUFF. 


i Error detected 


25. Establish correct index PLH positioning. 























R15 







R 


key length 


R 


1 
2 
A (user's key} 



















PLH 





See Diagram BU, Search Index. 


i Error detected 












‘ AMBLORBA 
26. Release data CA from exclusive control. CIR190 

CIWA AMBHIRBA 
—— 27. Set return code. === Return cin200 


Return codes: 
R15 = 0: space reclaimed CIRERR 
R15=1: no space reclaimed 


28. Release data CA from exclusive control. 


SEE Return 


2.140 VSE/VSAM VSAM Logic, Volume 2 Licensed Material —- Property of IBM 


Diagram CH1. Preformat Relative Record Data Set 



































Module 
ee * Diagrams CA, CS or label 
AMDSB 
AMDATTR2 =——=—-I%F 1. Are loadm : . 
? ode and speed option active? 
|” AMDSHR PReaop IKQRRP 
\ Yes No em: ) 
PLH N 
N 
aes ee: 
——\: I 2. Calculate start RBA and end RBA and compute 
ae a 
5 total length of area to be preformatted. 
ARDB a 
7 
be ee 
ARDHRBA . Share option 4? RRPO10 
aes Yes “ONG (6) 
4 CIW 
4. Lock the Record Management space CIWLKSP 
allocation lock for the file. ee ee el 
See Diagram DL, Issue LOCK Macro. EDBs IKQBFC40 
. Get high-used RBA from catalog, and build all p= RRPO40 
EDBs to ensure that all] current EDBs are present. i) 
. Calculate the number of bytes to be preformatted 
for recovery processing. 
. Calculate the length within the current extent and 
check if extent boundaries are crossed. 
RRPOGO 
. Adjust to remain within the current extent. | 
. Preformat as far as the end of the current RDF 
extent, marking each slot as invalid. 









10 





. Are more extents to be preformatted? 


Yes No memm> (2) 
m7) 


RRPO70 
x'04’ Length 
of slot RRPO75 


¥ 





AMDSB 
fg at ena 
11. Get next extent. AMDHWRBA 
m : Re 
12. Update high-used RBA. : RRP100 
: CIW 
CIWLKSP ———=| 13. For SHAREOPTIONS (4) unlock the Record Penance evel 
Po Management space allocation lock for the file. 
Pete ee | 
AMDSB See Diagram DM, Issue UNLOCK Macro. IKOBFC50 
tana ate ota hal AMDSB 
AMDNSLOT peek = eal 
. Update record number. RRP120 
Pao 








Return 


Notes for Diagram CH1 


4. A LOCK macro is issued to perform the locking. The LOCK name 
is the base lock name for the file (see note for step 1 of Diagram DG), 
except that the last two bytes are X’0005’. 
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Diagram CI1. Format Index 


Work area 


Tsaction 
so “index record 


7 
Input Reg. Fa 


Work area 


| | aMsB 


| | S|_AMDNeST 
ead 


example: 


RR field is the 2-byte 
index section header, and is 
required only for section entries. 
C = compressed key 
(result of ommeresting AACC) 
front compression (F 
length (L) 
L = full key length 
pointer 
AACC = current key Key values 
AACB = previous key used in creating 
AAAB = previous section | the above example 
key 


1+uadg 


1 
F 
P 
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y * Diagrams CB, CG, CK, CL 












1. Count the number of entries in this index record. 


2. Divide the number of entries by the number of 
section entries desired. 


Examine each entry as follows: 
. Construct a decompressed key for each entry. 


. If the entry is a nonsection entry and the output 
is a nonsection entry, the entry is not changed. 


. If the entry is a section entry and the output is a 
nonsection entry, the RR field is stripped off and 
the other RR offsets are recomputed. 


6. if the entry is a nonsection entry and the output 
is a section entry, an RR entry is added, the RR 
of the previous section entry is computed and 
stored, and the key is recompressed against the 
previous entry output. 


7. if the entry is a section entry and the output is 
also a section entry, the RR fields are 
recomputed and the key is recompressed against 
the previous section entry output. 


. Shift to make room for adjusted: entry, and store 
entry. 








. Adjust the offsets in the index header. 





. Last entry? 


Yes No 


ome; ) 


Return 


Module 
or label 
Work area 1KQ1XFOO 
#entries 
Per section 
C{3)11/P 
C/3);1)e 
RIRIC;}Cil2;2/)P 
RIR|JC|C|]|2]/2/eP 
(KOQSFT 
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Diagram CJ1. Obtain New Control Area 


PLHSWTCH 


Ri 


0 or index tees 
level indication 


AMDSB 


*Diagrams CB, CD, CK, CL 


. If this is the first request, then write an SEOF at 


the beginning of each extent. 


. Is this request for a high-level index only? 


No Yes > (< ) 
$ 


. Get a data control area. 


See Diagram CM, Manage Space Within Extents. 


. Is the data set key-sequenced? 


Yes No 


zea Return 


CNV processing or 
entry-sequenced data set 


. Get a CNV for an index record. 


See Diagram CM, Manage Space Within Extents. 


. Obtain an empty buffer. 


See Diagram DA, GETBUFF: Get scratch index 
buffer and clear it. 
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Module 
or label 


D or | record 


{KQNCAOO 


Volume Group Occurrence 


| [irveexr| | 


NEWO05 


NEWO10 


NEW020 


NEWO025 


NEWO50 
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Diagram CJ2. Obtain New Control Area 


2.144 









Module 


7. Save pointers to the index buffer, BCB, and or label 


data control area RBA in PLH. 


8. Build an index header. 





free space (or free CNV) 
pointers, only for sequence sst index 






9. If load mode and speed option are specified by 
the user, set the format write switch on. 


Return 
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Diagram CK1. Create Index Entry 


*Diagrams CB, CC 


1. Is there an entry to make in the index? 


xei No E> Return 


“o\s 


i 2. Is user-requested record already in storage? 
7 
kA -” 
Work Area 4 No Yes m4) 
_— 
Sere ¥ 
aS 3. Does desired index level exist? 
ae 
AMDSB — = Ver si ® 
eee 4 
4. Search for desired index level RBA and for point 
of insertion. 
See Diagram BU, Search Index. 
5. Compute entry size and determine if there is 
Index Header _ enough room for it. 
_ — 


Not enough Enough auummie(8) 
a ot enoug noug (8) 


6. Is the desired index leve! the sequence set? 


No Yes SEE Return 


$ 


7. Split the index to make room for the entry. 


See Diagram CL, Split CA: Split index. 


Notes for Diagram CK1 
4. The front compression count that will be used for the new key is 


determined during this index search. (See Diagram BU, Search 
Index, for a description of front compression.) 
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Parameter List 


R15 


Section 2. Method of Operation 


Module 
or label 


IKQIXE0O 
IXENTO1 


IXENTO3 


IXENTO4 


IXENTOS 
IXENTOS 


IXENTOG 


IXENTOS9 
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Diagram CK2. Create Index Entry 













. Shift the data area to create space for the entry. 
Index Header 


CO eS _——— 9. Move the key into the created space, compute 


ee and store the pointer. 
Og 


= . Update the section offset. 
Work Area oe ~~ esi , 


Index Header 








. ls entry into sequence set? 


ri Yes 


12. Format high-level index. 


See Diagram Ci, Format Index. 












13. Processing in load and speed mode? 


No Yes a>: ) 
+ 


14. Release buffer. 





See Diagram DA, GETBUFF: Free buffer and 


restore the same record. 


See Diagram DF, FREEBUFF: Free 
current-level index record. 






Index Buffer 


15. Build a higher-level index. 


See Diagram CJ, Obtain new index control 
interval and build a new index record. 


See Diagram DA, GETBUFF: Get a scratch 
buffer for new index record. 


Notes for Diagram CK2 


8.-14, There are two types of index entries, normal and split (see examples 
below). The only difference between a normal entry and a split 
entry is in the point of insertion. An index entry is composed of a 
key and pointer. A normal entry is inserted after the pointer; a 
split entry, however, is inserted after the key and the new entry 
is composed of a pointer and key. The result is two entries composed 
of the old key and new pointer, and the new key and old pointer. 


INDEX ENTRY 
KEY PTR KEY PTR 


a 
KEY }| PTR 
NORMAL ENTRY 


KEY PTR 
ee! 
PTR KEY 

SPLIT ENTRY 


Module 


or label 


SHIFT 


IXENT10 


IXENT18 


IXENT19 


IXENTI9A 


IXENT19B 
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Diagram CK3. Create Index Entry 


Index Buffer Index Buffer 


16. Build a header for the index buffer just acquired. 


BCB Index AMDSB 17. Initialize PLH and prepare for index search. 
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Diagram CK4. Create Index Entry 












Return 


Notes for Diagram CK4 


The index entry for a spanned record is a special case of the split entry 
mentioned in the notes for Diagrams CK1-CK3. When a spanned record is 
stored, the first index entry is created by the normal method (CK1-CK3). 
Index entries for segments after the first one are created by the routine 
shown in Diagram CK4. 


The index entry for the first segment originally holds the key, and its F 
byte contains the actual key compression count. Index entries for further 
segments are inserted in the middle of the first entry, thus causing the 

key to be moved to the left and to remain in the entry for the last segment 
of the spanned record. 


The entries for the second and subsequent segments do not contain a key, 
and their F byte contains a compression count equal to the keylength, 
thus indicating a keylength (in the entry) of zero. 
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7, Update the appropriate PLH fields. 


















Module 
or label 
R3 Work Area 
ia 1. Save the caller’s base and return registers. IKQIXE20 
2. Compute the entry length. ONEIXE 
Index Buffer 3. Shift the existing index entries to make room for dae putter 
4. Compute and insert the pointer for the split entry. 
5. Insert the K and L fields. 
6. Update the section offset in the buffer. ONEIXE10 
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Diagram CLI. Split Control Area 





























*Diagrams CB, CC, CK Module 
or label 
i pace wl . Obtain new index and/or data space. ea] IKQCASO00 
See Diagram CJ, Obtain New Control Area. 
R9 
: : ; # of entries 
. If request is not sequential, that is, not a mass aaa 
insert, count the index entries to find the point at 2 
which the old control area will be split. 
Index Buffer 
. Scan, decompress key, and find the entry in the aa ee CAS030 
index that represents the control area at which 
the split will take place. Index Buffer Split 
; . Make the first entry of new (high) part a section : CASO050 
oe Se entry, if it is not already a section entry. inex Butter Secon Entry 
CNVS ~N ON ee Sipe 
ay ~~ . Overlay the low-key entries with the high-key eo sit a CASO80 
IKQSFT 


we entries as new index record. 
Data Buffer(s) “ 


Data Buffer(s) Index Buffer 











. If a control area (not an index) is being split, 
update the data CNV and the free space pointers. 


ine cas 


Pointers to 
free CNVs CASIO 





. Format the new index record and write it. 


See Diagram Cl, Format Index. 


. Get the old index record back. 


See Diagram DA, GETBUFF: Get old index 
record. 


if 


index Buffer 
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Diagram CL2. Split Control Area 






Date Buffer(s) 

















3 , F , . Module 
Sie 9. If a control area (not index) is being split, write or label 
the data control intervals to the new control area, CAS130 
\ and update the free CNV pointers in the old CA. IKOSFT 

~ See Diagram DA, GETBUFF: Get a data buffer. 
= = — . Complete the old index record and write it out. CAS210 

\ See Diagram Cl, Format Index. 
\ See Diagram DA, GETBUFF: Use REPBUFF 
\ function to write index and free buffer. 

\ . Is this a high-level index split? pies 












i Yes S> Return 





Data Buffer(s) 


N 


Erase each data buffer (the data was transferred 
to the new control area in step 9). 


See Diagram DA, GETBUFF: Get a data buffer 
and force write with Os to clear (REPBUFF 
function). 


See Diagram DF, FREEBUFF: Scratch first 
buffer and force write last buffer. 


Return 
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Diagram CM1. Manage Space Within Extents 


Module 
or label 












AMDSB 


Find the proper ARDB. 1KQSPMOO0 





If the data set is shared, update the space in the 
catalog; otherwise, get space from the current 
ARDB. 


ARDB AMDSB 


bol 


EDB 





See Diagram CO, Update catalog for sharing. IKQRBAOO 


lf speed option is on, format balance of old 
control area. 







EDB(s) See Diagram CN, Format Control Area. 


Examine EDBs (if more than one is attached to 
the ARDB) until the proper one is found. 






If the EDB ranges are exceeded, allocate a new IKQNEX00 


extent. 







See Diagram CP, Get New Extent. 
AMDSB 


Format the data control area or the index CNV 1KQPFOOO 


unless load mode and speed option are on. 






See Diagram CN, Format Control Area. 


Return 


Notes for Diagram CM1 





1. The logic of finding the proper ARDB is determined by using the 
following decision table where certain conditions result in certain 
Operations taking place. For example, looking at the rightmost 
column, if there is an index, a key range and a change of key range, 
and the sequence set is embedded with data, then the ARDB is 
pointed to from the PLH, and the ARDPREL, a field in the data 
ARDB, points to the associated index ARDB. 


2. “Space” in this context means the serial apportionment of a single 
control interval (for an index) or control area (for data) for immediate 
use. This space is a subdivision of an extent as defined by DADSM 
allocation. 
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Data or index 
Key range 
Key range change 
Sequence set or 


Lyte qyeqededt 
NIN|IYIYIYLY 
-|-|J-|-IN|/Y 
high level HLISS |— HL|SS/ss 
Sequence set with data -|- YIVINIYIYLY 


The ARDB is found 
as follows: 
ARDB from AMDSB |X x|X x x 
aoe fone x 

arch A $ for 

key range x x x 
Use ARDPREL* 
Search ARDBs for x 

high-level 


*“ARDPREL is a field in the data ARDB that points to the 
associated index ARDB 


Legend: 

no 

yes 

data 

index 

don't care 

indicates how the proper ARDB is found 
sequence set 

high level 


<<o 
2<o 















Zax! ~O<2 


ro” 
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Diagram CN1. Format Data CA or Index CNV 


Ky “Diagrams CM, CS te 


Key-sequenced data set: 


IKQPFOOO 





Formatting for data control areas is done as follows: 






DIO|DIEJEJE|SIEJEIEIELE|S 


0 NS ae 


CA CA CALL, 


Zs 1. The data set has already been loaded. nl Pa 









2. The user has requested the speed option, and the 


/ data set is being loaded. DID|Dj/D|D| DIS} S}S|sis|s|s 





(3) d/o] S}s}sis 


a ta a 


CAL. CA, CAn+4 


R1 R8 





AMDSB 


AMDHWRBA 


ARDHRBA 


Notes for Diagram CN1 


1.-3. IKQBFAOO and {KQOSFT are called to help process each of the D = data control unter edged Wea eIoe) 
: : = empty control interval {a ied wit plus 

Operations described. s = software end-of-file (a CNV filled with binary Os) 

1. The speed option can be specified by the user, but load mode will CA = control area 

‘: : vs f ; : CNV = control interval 

automatically be invoked by VSAM if the data set is empty or if 1X = index CNV (for index record) 
the end of a key range or data set has been reached. n = number 

2. Once loading has been completed, that is, one or more records have Note: The three steps in this diagram are not sequential. They 
been loaded into the data set and the data set has been closed, load i eles before’ and “after’’ examples of the various types of 
mode may still be invoked automatically, but the speed option will os 
be ignored. 


1, & IKORBA is called to turn off the ARDB preformat bit in the 
3. catalog after any extend operation. 
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Diagram CN2. Format Data CA or Index CNV 









Module 
3. Formatting of an index control interval or label 
(associated with each key-sequenced data set) is IKQPFO0O 





always done as shown. 


Return 


*Does not exist for first contro! interval 
(not written). 


v Both SEOFs {at n and n + 1) are written, even though redundant. 
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Diagram CO1. Update Catalog 


















pointer to 
new high- 
key RBA 






Work Area 





1. Obtain and initialize a work area. 












2. Set up the catalog parameter list. Catalog Lists Area 








3. Update HK RBA request? 


rl No 


Update high-key RBA 






4. Set up the field parameter list to update the 
catalog entry. 


Catalog 


HKRBA 















5. Has a nonzero error code been returned by 
HKRBAUPD? 


Yes No om °) 
+ 


SSS Se y 6. Does the return code from the UPDATE 
function indicate that the field to be updated has 
been changed since the last update? 


Yes No 


Error 
return 















Work Area 






7. Locate the most current high-key RBA from the 
new catalog entry. 





Module 
or label 


IKQRBA 


HKRBAUPD 


HKRBALOC 
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Diagram COQ2. Update Catalog 


















R15 Module 
Saas Se 8. Has a nonzero error code been returned by or label 

HKRBALOC? 

No: Yes 

| Error return ARDB 

9, Update ARDB to reflect the new high-key RBA. 
Sa Update or locate high-used RBA 
HURBAUL 









10. Locate HURBA request? 


Yes No emmm>('3) 
Y 


11. Set up the field parameter list to locate the 
high-used RBA. 


—---- 


Catalog Lists Area 








ARDB 












12. Update ARDB to reflect the new high-used 


RBA. @) 
eume>(15) 





13. Update HURBA request? 
Yes No 


4 


14, Set up the field parameter list to update the 
high-used RBA. 
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Diagram CO3. Update Catalog 






Update or locate high-used RBA (continued) 


15. Set up the field parameter list to update the 
ARDB preformat bit (ARDPRFMT). 


16. Free work area and restore caller’s registers. 


Work Area 


Return 
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Diagram CP1. Get New Extent 
















































Module 
or label 
1. Obtain and initalize work area. IKQNEX 
R13 
[seve area }~—— 2. Set up CPL and FPL to extend on current EXTEND 
ay volume. Work Area 
—- RELREPNO 
EXTNUM 
3. Does the current volume have space for an 
additional extent? 
No Yes 
4. Is there already a volume that contains EXTVOL 
overflow records? 
Y m7 ) Catalog Lists 
ve Area (located 
4 in work area) 
. Set up CPL and FPL to extend on overflow EXTEND 
volume. 
. Does the overflow volume have space for an 
additional extent? 
No Yes mee>('3) 
7. Locate candidate volume. VOLLOC 


Notes for Diagram CP1 


Note: This module falls into four logical groupings: 
@ Steps 1-2 where an attempt is made to extend on the current volume. 


@ Steps 3-5 where an attempt is made to extend on an overflow volume, 
if the current volume did not have enough space for an additional extent. 


@ Steps 6-11 where an attempt is made to extend on a candidate volume, 
if the overflow volume did not have enough space for an additional 
extent. 


@ Steps 12-16 where the data set extent information is located on the 
proper volume, a volume entry is made to the ARDB, and EDB(s) 
are built. 
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Diagram CP2. Get New Extent 









Module 


8. Was a candidate volume located? or label 


Yes No E> Return 


+ 


9. Set up CPL and FPL to extend on candidate 
volume. 


Catalog Lists Area 
(located in work area) 














10. Does the candidate volume have space for an 
additional extent? 


Work Area 


RELREPNO 


Work Area ERTENe 


RELREPNO 
EXTNUM 





No Yes 


+ 


11. Is list of candidate volumes ordered? 
















No Yes 


+ 


12. Loop until end of list is reached. 


‘ 


Return 


ARDB 


13. Is there enough space in the ARDB to add a 
volume entry? 


No Yes 


4 






















EDB AMDSB 
(| Pee —— 14. Obtain storage in which to build a new ARDB, sca. a GETCORE 
and free storage occupied by old ARDB. riew voi 
ri ume 
ee | 15. Add volume entry to ARDB. BLDARDB 
R1 
16. Locate data set extent information. RELREPNO EXTBUILD 
EXTLOC 
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Diagram CP3. Get New Extent 
















Module 
MDSB 
aves — —<e17. Find the address of space in which to build or label 
EDB(s) and build them. 
CALCORE 


18. Free work area and restore caller’s registers. 


R15 





Return 


R1 Work Area 


RELREPNO 
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Diagram CQ1. Error Handler 












































Module 
or label 
R15 R15 IKQERH 
(lr —_——_—— 1. RPL held by another request? 
i Yes ae Return ERHOO1A 
2. Error during upgrade or path processing? 
Yes No we?) 
/ 
ol 
y / 
/ Error recovery for AlX processing 
7 3. 1/O error? 
/ - 
RPL / — me Yes No emma ) 
- 
- 
moo 4. GET sequential request? 
~ > io. AS came ('2) 
\ \ PLH 
SN SF amas — 
\ 5. Reset PLH flags. m2) 
M 6. Specification error? ee Eas 
\ Yes No 
\ % RPL 
7. Terminate request processing. ee ERHOOS 











ap Return 
8. Direct request? 
i No 


9. If error code was EOD, change it to ‘‘no record 


found”. 







RPL 


RPLERRCD 







Notes for Diagram CQ1 


1. If the user did not point to a valid RPL or the RPL is in use (used by 
another task), no feedback information can be stored into the RPL. 
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Diagram CQ2. Error Handler 































Error recovery for AlX processing (continued) eat 
_— 10. Positioning required? ERHOO7 
|__| Yes No emm>(12) PLH 
PLM | ae 
ae | rer 
PLHAIXPT — oe 11. If PLH points to a non-unique base cluster G 
See pointer, indicate restart and set previous request PLHFLA 
to POINT. PLHPREQ 
12. Store previous request information in PLH. ee all ERHO11 


13. 1/O error? 






















ye No Yes 
7” 
y ¥ 
a 
RPL a 14. Direct request? 
ee 
es ie. es SE Return 
Boa! 
RPLAREA — a 
“XN 15. GET request? 
ba “X 
\ No Yes SEE Return 
“N 


+ 


16. Store request key as previous request key in the 


PLH of the path entry. 
ee ed Return 
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Diagram CQ3. Error Handler 







Module 
17. (/O error? or label 
—on IKQERH 
R15 -” 
’ _— No Yes 
[rewnene RO 
~. ERHO19 
_— 





18. Processing error? 


No Yes 
+ 











gs os P 
Error recovery for specification errors Sie 


19. Terminate request Se Return 


processing. 
















Error recovery for processing (logical) errors 


20. POINT request? 
No Yes 


21. End of data? 


Yes amp (23) No SP Return 


22. DIR specified? 


No Yes SE Return 













23. Store feedback information into RPL, and 
perform error recovery procedures, 









Return 
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Diagram CQ4. Error Handler 


Error recovery for |/O (physica!) errors 








Module 
or label 
IKQERH 
ERHO60 






PLH RPL 







24. Did a write error or data read error occur during 
a sequential GET? 


ry No 


25. Did a data read error occur? 


RPL a“ 





























No Yes 


{ 


26. Indicate control interval is to be 
skipped and adjust positioning of 


| 


27. Indicate that a restart is required and adjust 
positioning of PLH. 


28. Did this write error occur while writing a buffer 
that does not belong to the request ACB? 


\ No 


29. Move pointer to name of ACB in buffer to 
MSGAREA of the request ACB. 


30. Is an EXCEPTIONEXIT specified? 


Yes No Se Return 


4 


31. Cali EXCEPTIONEXIT module. 


Request ACB 





(KQOCMSG 
AMDSB 


AMDEXEXT —— ee ee 


Return 


Notes for Diagram CQ4 


24. A write error can occur on a GET when buffers (that have not been 
written) are written because more are needed for the GET. 


26. For a data read error occurring during a sequential GET, the user may 
continue processing. The next GET issued will skip the erroneous data 
control interval. 


If necessary, |IKOQBFA is called to release exclusive control and track 
hold. 


27. For a write error occurring during a sequential GET, positioning will 
automatically be reestablished for the next request, that is, a restart 
is performed. To the user’s program, the erroneous operation looks 
like a no-operation except that an error exit is taken or an error code 
is returned. A subsequent sequential GET will cause processing to 
continue. 


28. \f the write error occurs while writing a buffer that does not belong to 
the request ACB, field PLHACB points to the ACB to which the buffer 
belongs. Otherwise PLHACEB is 0. 


29. A pointer to the ACB name is moved into the MSGAREA of the 
request ACB for user information. 
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Diagram CRI. Error Exit 


2.164 


























Module 
or label 


R15 IKQERX 


1. Error code stored in RPL? 


Yes No 


2. Pass return code in R15 to user. 


SE Return 


RPL 
3. End of data? 





No Yes 


4 


4. Store pseudo EOD class code. 


ACB 


ACBEXLST 


5. !f no EXLST or no user’s exit is specified or if exit 
is not active, return control to user’s program to 
instruction following record management request. 


Return to user’s program 


EXLST 






6. If EXLST is specified and an end-of-data 
condition exists, indicate the EODAD exit; if 
EODAD exit is not active or is not available, 

indicate LERAD exit. 


Go to user's exit routine 


P i ‘ 
7. If a user’s exit is to be taken, load user’s routine Gr activate errar-axit 


dynamically or activate an error exit, at user’s 
option. 





Return to user’s program 


8. If user processes errors, the user may return to via VSAM 


VSAM which, in turn, returns control to user's 
program to instruction following record 
management request. 
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Diagram CS1. Record Management Close 


Module 
or label 













1. Obtain virtual storage for a work area. I(KQRCLOO 


2. ts this an ENDREQ? 


No Yes mp7 ) 
4 


3. Is this a relative record data set? 





IKQRCL12 


Yes No 


+ 


4. Preformat data control area if load mode and 
speed option are specified by the user. 


I(KORRP 


See Diagram CH, Preformat RRDS. 


IKQRCL20 







. Preformat the data control area or the index 
CNV if load mode and speed option are 
specified by user. 


See Diagram CN, Format data CA or index CNV. 








. 1f load mode is specified by user and data sets IKOQRCL65 
are key range, format data sets and make index 


entries for them. 


See Diagram CA, Format data sets and make 


; ; PLH 
index entries. 


PLHFLAG 









7. \f this isan ENDREQ request, reset PLH flag to 0. IKQRCL80 
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Diagram CS2. Record Management Close 



































Module 
8. See Diagram DA, GETBUFF, for the following or label 
process: 
PLH CBFO20 
(a) If a wait for completion of 1/O is pending on the 
1/O scheduled queue, first clear the wait for the 
data buffers; then, for keyed processing, the wait 
for index buffers is cleared. 
y (b) If the PLH indicates any outstanding write 
requests not already on |/O queues, the write 
BHD (index) BHD (data) BCBs are placed on the data or index 1/O 
queues. 
( ¢ 4 0 
—— — (c) Read-only requests are purged from the data or 
Index Index Data Data index !/O queues, and |/O is scheduled for ail 
free 1/0 sea 0 remaining write requests (including both BCBs on 
queue auetes queues 1/O queues at the time a close was issued and 
Baw oeindectiutte those placed on the !/O queues by this routine). 
(d) When the waits for completion of write requests 
have been cleared, transfer BCBs from !/O 
Data or index buffer schedule queue to free queue. 
(e) Free any data or index control intervals that 
were held. 
Work Area 
9. Free work area. IKORCLSO 





Return 
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Diagram CT1. Move Record to User Work Area 
































Module 
AMDSB or label 
aa * BECF 
AMDCINV .PLHDBAD 
2 1. Initialize to move record to user work IKQATV 
area. 
RPL ew 2. |s CNV processing specified? 
le eee | 
RPLAREA Yes No 
| 
_? 3. Compute offset to record 
in control interval. 
PLH 
[t~™ . Is Locate mode specified? RTVO010 
No am; ) 
. Is user’s area large enough for a 4-byte 
RPL address? 
RPLOPT2 ep Return 
pares 
. Store pointer to record in user’s work area. 
User Work Area 
. ls user's work area large enough for the RTVO020 


record? 


Yes No cap Return 


. Move record to user’s work area. 





Return 


Notes for Diagram CT1 


This routine moves the record to the user work area if MVE was 
specified in the RPL. (The C! is moved if CNV was also specified.) 
If LOC was specified, the pointer to the record (or Cl) is stored 

in the user work area. 
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Diagram DA1. Buffer Manager: GETBUFF 












PLH. 









Yes No 


$ 


REPBUFF 
Parameter List 





t Buffer 





Return vector: 


BCB found 





buffer; release PLH. 


REPBUFF function 


No Yes 


Notes for Diagram DA1 


The two main functions of this module are FREEBUFF (free a buffer) 
and GETBUFF (get a buffer). The REPBUFF function is a combination 
of the two, except when ‘‘no read” is specified. In this case, the function 
is basically a FREEBUFF. 


FREEBUFF: 

Free the input BCB contained in the parameter list: 

a. Do any necessary I/O operations. 

b. Place the BCB on the free queue. 

Note: The first step may force additional !/O on the queues. 


GETBUFF: 

Get a buffer with the requested RBA: 

a. Search the queues for the requested RBA, in order to determine if it is 
already in storage. If so, detach the buffer from the queue and complete 
the parameter list for return to the caller. 

b. If the RBA is not located on the free queue, as indicated by the BCB 
“buffer contents valid” flag, but is found on the scheduled or nonscheduled 
queue, force completion of the 1/O, thus forcing the BCB into the free 
queue, where it can be used to satisfy the request. 

Note for LSR processing: 
If the RBA is not found in one of the queues, the subpool of the VSAM 
shared resources pool is searched for the requested RBA. 

c. If the RBA is not in storage, get a scratch puITer and read in the RBA. 
Then repeat step a. above. 

Note: Once the request has been satisfied, the BCB/bufter i is unknown 
to the buffer manager, because it has been detached from the queues. 
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3. Get a scratch buffer. 


See Diagram DB, Get scratch buffer. 


- No BCBs available 


- 1/O error encountered > Return 


Point RO to the allocated BCB and R11 to the 


5. Set “no BCB” return code. 


Insure that read ahead is not active. 
See Diagram DC, Read Ahead Interface - 


Was an I/O error encountered? 










Module 
*Diagrams BD, BG, BH, BN, BO, BP, BQ, BS, BT, BU, or label 
CA, CB, CC, CD, CE, CG, CJ, CK, CL, CS PLH 
. PLHECBT t{KQBFA0O 
Get exclusive control of BHDs associated with IKQBFA10 
Is this a GETBUFF request (R1=0)? 
GTSCROO 







(5 ) 









Buffer 





BFAOOO 
DNQUEOOO 







Sa Return 







BFAO30 


> Return 









BFA100 
RDAHIOOO | 


BHDRAHOK 














> Return 


NO READ: 

If the ‘‘no read” flag (PLHNORD) is set in the parameter list, the request 
is really a FREEBUFF request via the REPBUFF interface. This means 
that the “requested” RBA is not read in. Only the BCB in the parameter 
list is freed. 


Definitions of the queues 

There are four queues that can hold BCBs. These are shown below, with 
their pointers from the BHD, and their contents. 

Scheduled queue: 

Located by BHDSKDQ. Contains BCBs for which I/O has been started 
without wait. 

Nonscheduled queue: 

Located by BHDNSKDO. Contains BCBs for which I/O needs to be 

done but has not been started yet. 

1/O queue: 

Located by BHD1STW. Contains BCBs on which the !/O manager is presently 
working (to build channel programs). This is the primary input from the 
buffer manager to the I/O manager. 

Free queue: 

Located by BHD1ISTF. Contains BCBs (with and without buffers with valid 
contents) that are available to record management. 
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Diagram DA2. Buffer Manager: GETBUFF 






REPBUFF 
parameter list 


REPBUFF function (continued) 


8. Does the caller’s parameter list hold a BCB 
pointer? 


Yes No fae et 32) 
q 


. Set parameters for FREEBUF function. 



















RBA 
TBCB 








. Return the BCB. 
See Diagram DF, Return BCB. 





. ts the control interval to be freed from exclusive 


use? 








PLH oa No 


Yes 
















12. Indicate that control interval is 
no longer held. 


13. Was share option 4 hold done? 





No Yes 


4 


14. Release share option 4 hold. 
See Diagram DH, Share option 4 free. 







15. Was an I/O error encountered? 
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Yes Se Return 


Exclusive 
control list entry 


RBA=x’F...F’ 






Section 2, Method of Operation 


Module 
or label 


BFA110 


BFA120 


RTNBFOOO 


BFA171 


CIFREOOO 


BFA172 


1KQBFC20 


BFA173 
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Diagram DA3. Buffer Manager: GETBUFF 























Module 
REPBUFF function (continued) or label 
Is share option 4 hold to be obtained ? BFA175 
Yes No 
GETBUFF 
parameter list 
THB 
Obtain share option 4. IKOBFC10 
PLH See Diagram DG. Share option 4. 
PLHEHELD 
PLHEACTV P 7 
Is exclusive control of control interval requested? BFA176 
; 
No Yes Exclusive 
control list 
19. Set RBA of control interval into CIEXCO00 
exclusive control list. ees 
PLH 
ir R15 
PLHNORD —se rere Is ‘‘no read” specified ? | ois A178 
PF No Yes maa Return 






AMBL 


$ 


21. Was LSR specified for this data set? 
Yes No 


' 


22. Is this RBA held in exclusive contro! ? 





AMBLSR Sg weg tee ee gee ee 





©) 





v 


LH 





PLHEHELD —--- TC e 
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Diagram DA4. Buffer Manager: GETBUFF 


REPBUFF function (continued) 


23. Does another string have exclusive control of 












this RBA? 
BHD No Yes (Exclusive => Return 
ania control 
BHD1STF error) 


BHDNSKDQ 


. Look for a buffer that contains the requested 
RBA in the buffer queues. 


Return vector: 


— BCB with requested RBA not found 


—1/Oerror encountered mca Return 






PARM 


PLHNORDD 


PLHNOINV 


AMDSB 


No Yes mae (34) 
&) 
— 


— BCB with requested RBA found 


25. 1s explicit buffer invalidation requested? 


{ 


26. Does share option 4 buffer invalidation apply? 


No Yes 


4 


27. \s exclusive use of control interval requested? 
Yes No 


PLH 


PLHEACTV 
PLHEHOLD 


BCB 


BUFWRINV 












28. Was buffer with proper RBA written by anothe 
string? 


Yes No 


29. Turn off valid flag in BCB. 


Notes for Diagram DA4 


25. 


26. 


A special interpretation is given when “‘no read from data set”’ 
(PLHNORDD) is specified but invalidation is allowed (PLHNOINV 
is.off in the Buffer Manager Parameter List). This special inter- 
pretation is to explicitly invalidate any existing buffer with the 
RBA specified by PARMRBA (regardless of share option 
specification). 


Share option 4 invalidation applies to any share option 4 data 
set (AMDSHR is on) for which invalidation has not been suppressed 
(PLHNOINV is off). 
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BCB 


BUFCVAL 


Section 2. Method of Operation 


Module 
or label 


CHKRSAQO 


BFA180 
DQRBAOOO 


BFA185 


BFA190 


BFA220 
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Diagram DAS. Buffer Manager: GETBUFF 


CIDF 


BCB 
BUFCBAD CIDFODP —_— 












30. Does a possible duplicate data situation exist? 


Yes No me (32) 
! 


31. Do recovery for duplicate data condition. 
See Diagram CE, Duplicate Data Recovery. 





32. Place information in caller’s parameter list. 


33. Indicate normal return in R15. 





Return 
















Re _ Turn off the buffer valid bit in the BCB. 
C4 35. Return the BCB to the free queue. 
See Diagram DD, Buffer Manager Free Buffer. 
PARM 







. Isaread from the data set to be done if 
needed? 


Yes No eum (33) 


PLHNORDD 


Notes for Diagram DAS 

31. Invocation of duplicate data recovery is suppressed if the 
PLHNODDR bit is on in the buffer manager parameter list. 
PLHNODDR is used during a Cl split when a Cl is being 
written while bit CIDFDDP is on (indicating a possible duplicate 
data condition exists). 


34.-35. The buffer is invalidated and returned to the free queue as a 
scratch buffer. 
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BCB 


Caller’s 
parameter list 









BUFCVAL 


Module 
or label 


BFA195 
PLRMIOO0O 


BFA200 


BFA290 


FRBUFOOO 


BFA300 
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Diagram DA6. Buffer Manager: GETBUFF | 


AMBL 


AMBLSR -™@7T7" 77 i 


PLH a“ 


a“ 
PLHEHELD 


REPBUFF function (continued) 


. Look for a BCB that can be used to read in the 


requested RBA, 
BCB BCB found 


j found 


. Geta scratch buffer. 


See Diagram DB, Get Scratch Buffer. 


Return vector: 


© No BCB found > 
Return 

e 1/0 error encountered <-> 
Return 


e BCB found 


. Set parameters to perform a READ into the 


BCB. 


. ls LSR specified and the RBA held in exclusive 


control? 


i” 


. Search the buffer subpool for the RBA, and copy 


the buffer if it is found. 
See Diagram F1, Search for requested RBA. 


Return vector: 


e Exclusive control error 


eee 
e RBA found p>?) 


e RBA not found 
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Module 
or label 


BFA320 
GTSCROOO 


BFA390 


BFA340 


IKQBFB50 
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Diagram DA7. Buffer Manager: GETBUFF 


REPBUFF function (continued) 
42. Perform the I/O. 
See Diagram DE, do 1/0. 


43. Was an |/O error encountered? 


No Yes 


4 


44, Release PLH. MEE Return 


BHD 

as 
BHD1STF 
BHDSKDO 
BHONSKDW 










Look for the buffer that contains the 
requested RBA in the buffer queues. 









Return vector: 





e BCB with requested RBA not found 


e t/O error encountered 


Pew 


e BCB with requested RBA found 


>?) 
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Module 
or label 


BFA370 
DOIO000 


BFA210 


DNQUEOOO 


BFA380 
DQRBAOOO 
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Diagram DB1. Buffer Manager: Get Scratch Buffer 
































Module 
or label 
R14 
[ 1, Save return address and set normal return code IKQBFA0O 
in R15. GTSCROOO 
Free queue IKQBFA60 
_—_— 2. Scan the free queue to locate an available buffer. GTSCROOS 
GTSCRO10 
Buffer GTSCRO20 
found Buffer (4) 
4 not found 
BHD 
SaaS 3. Remove the BCB from the free queue and clear GTSCRO30 
the BCB flags to indicate it is associated with a 
Nonscheduled queue scratch buffer. 
Sa Return 
Lisieesiioes ——— 7% 4. Is a BCB on the |/O queues? GTSCR100 
7 Yes No 
/ (7) 
7 
7 
5. Wait for 1/0 complete. GTSCR150 
0010000 
See Diagram DE, Do 1/0. 
6. Was an I/O error encountered? 
No >(2) Yes SCC Return 
———- 7 7. |s LSR processing specified? GTSCR250 
STEALOOO 





Yes 





No 


mm ) 
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Diagram DB2. Buffer Manager: Get Scratch Buffer 


ay 
8. Search buffer subpool for a scratch buffer. sa 
IKQBFB30 
See Diagram FG, Get a scratch buffer. 
9. Must get a buffer from another string. 1KQBFA20 
STEALO20 


Return vector: 


Buffer found om (;) 
Buffer not found See Return 
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R1 


Diagram DC1. Buffer Manager: Read-ahead Interface 


Parameter List 


1. Is this a read-ahead request? 


No Yes 


+ 


AMOSB 
_— 2. Is this an index request, or is read-ahead not 
7 active? 
BHO 7 
No Yes 


a 
i 


3. Wait for 1/O complete. 


See Diagram DE. Do 1/0. 












No Yes 


AMBL 
6. Is there an index AMDSB? 





Yes No 


Notes for Diagram DC1 


This routine handles any non-sequential request that occurs while 
read-ahead is active. If a non-sequential request, such as GET DIRECT, is 
received after read-ahead has been started, this interrupts the read-ahead 
Operations, and the read-ahead routine in deactivated, and the read-ahead 
control information is reset. Read-ahead can be activated on a subsequent 
GET SEQUENTIAL when a control interval is read (GETNXT processing). 


5. If a read-ahead error occurs, the buffer is flagged invalid. 
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4. Was an 1/O error encountered? 


5. Reset the read-ahead and read-ahead error 
indicators in all buffers on the free queue. 













R15 


ap Return 


BRD 
BHDISTF 


Free Queue 


——> Return 


Section 2. Method of Operation 


Module 
or label 


iKQBFA00 


RDAHIO00 


DOIO000 


RDAHIOO 
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Diagram DC2. Buffer Manager: Read-ahead Interface 

















Module 
7. Free the read-ahead index BCB, if necessary. or label 
See Diagram DD. Free Buffer. EREUE COS 
PLH 
8. Set the data read-ahead information. 
RPL 
[+k —— oe 9. Is this a keyed request? RDAHI150 
Yes No fm f ) 
10. Set the index read-ahead information. 
BHD 
11. Set the “‘read-ahead OK” indicator. RDAHI190 






Return 
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Diagram DD1. Buffer Manager: Free Buffer 
















*Diagrams DC, DI 


a 1. Is there a BCB to free? 


Yes No SEE Return 


+ 


2. Locate the last BCB in the input chain. 





3. Load pointer to free queue. 


4. Is this an index AMDSB? 
Yes No 


Free index buffer 


5. Is the free queue empty? 


Yes 










No 


¥ 


6. Does the first buffer on the free queue have 
valid contents? 











Yes No 


4 


7. Does the first free queue buffer contain the 
high-level index record? 


Yes No 
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Module 
or label 


FRBUFOOO 
IKQBFA40 


FRBUFO10 


FRBUFO50O 
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Diagram DD2. Buffer Manager: Free Buffer 








7 7 Mi 
Free index buffer (continued) Sabet 
8. Set free queue pointer so that new buffer will be 
past the high-level buffer. FRBUFO6O 












Free Queue 





R5 
9. Add the input BCB to the free queue. 


BHD 
BHD1STF 










Return 


Free data buffer 













BHD Free Queue 
10. Add the BCBs to the free queue, and place the FRBUF100 
BnBIaTr input BCBs in front of the existing free queue eres: iieus BHO 







FRBUF110 





11. Scan and adjust the free queue BCB chain in the 
following order: read ahead BCBs, valid BCBs, 
scratch BCBs. 






Input BCBs / 


/ 
BCB 





P| 
| 


Return 


Notes for Diagram DD2 


8. Make sure a buffer containing the high-level index control interval is 
lowest priority to be scratched for reuse. 


11, Make sure the free queue BCB chain is in the following order of 
increasing priority to be scratched for reuse: 
@ Read-ahead BCBs (valid contents) 
@ Other BCBs with valid contents 
® Scratch BCBs (no valid contents) 
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Diagram DE1. Buffer Manager: Do I/O 













“Diagrams DA, DB, DC, DF, FF, FG ace 
Re IKOBFA5O 
ee —— — be I. I5 there an input BCB chain? Bo10000 


Yes * No 


4 


2. Does the nonscheduled queue 
have any BCBs already on it? 


BHD 


BHONSKDQ ——— 


Yes No 


4 


3. Are the input BCB(s) and the BCB(s) 
on the nonscheduled queue for the same 
device class? 


Yes No o>! 1) 


tf 


AMBL 


AMBLSR 






AMDS8 


AMDARCH 
AMDARCHS 


BUFAMDSB 





Notes for Diagram DE1 


3. This test ensures that, in normal processing, only fixed block BCBs or 
only CKD BCBs will be given to the |/O Manager at one time. 


A device class conflict could occur in two cases: 


@ = If the high level index is on one device class and the data with 
an imbedded sequence set is on the other, there is a potential 
device class conflict in processing the index. 


@ With LSR, the user could do aWRTBFR at a time when there 
are already BCBs for the other device class on the nonscheduled 
queue. (WRTBFR only invokes the Do I/O routine to write BCBs 
belonging to a single AMDSB at a time.) 


If there is a device class conflict, the 1/O Manager is called to complete 
all 1/O currently on the scheduled queue and the nonscheduled queue, 
before the input BCB(s) are enqueued. During the call(s) to the 1/O 
Manager, a pointer to the input BCB(s) is saved in register 6. 
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Diagram DE2. Buffer Manager: Do I/O 









































R6 Module 
— a ee 4. Add the input BCB(s) to the ae of label 
nonscheduled queue. DOIO009 
BHD 
le eee = 
5. Branch vector table: p010020 
Z| @ Wait for 1/0 (x'00) (G1) 
ye 
/ @ Enqueue BCB (X’08') eee>(7) ae 
7 
7 
7 @ Wait for scheduled queue 
only (X‘0C’) 
@ Do I/O (X‘04') 
——— oo = 6. 1s the |/O queue count greater than DOI0025 






the start |/O threshold value? 


Yes No emme> (7) 







Notes for Diagram DE2 


4. Add the BCB(s) pointed to by register 6 to the nonscheduled queue. 
The count of I/O operations to be done is also incremented. Register 
6 is cleared at completion of this step. 

5. Onentry to the Do I/O routine, register 4 contains one of the 
following codes: : 
0 — Wait for all 1/0 to complete, including |/O newly enqueued with 
this Invocation. 


4 — If the threshold (see note 6) has been reached, wait for previously 
started |/O to complete, and start |/O not previously started. 


8 — Enqueue the BCB. 
12 — Wait for previously started |/O to complete. 


6. The threshold test consists of comparing the count of I/O operations 
to do (number of BCBs on the nonscheduled queue) to a fixed 
threshold value. For LSR the value is zero. For non-shared resources, 
the value is either: 


@ The total number of BCBs owned by this PLH, if that number is 
less than 4. 


@ One-half the total number of BCBs owned by this PLH (rounded 
high if an odd number), if that number is greater than or equal to 4. 
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Diagram DE3. Buffer Manager: Do I/O 


BHD 


R15 


BHD 


BHONSKDQ —iee epee ee 














Start 1/0 and Return 
7. Wait for the scheduled I/O queue to 
complete !/O processing. 
See Diagram Di. Buffer Manager: Wait 
8. Was an !/O error encountered? 


No Yes 
+ 


9. Start the new 1/0. 







BHDSKDQ 










See Diagram EA, |/O 
Manager: Mainline. 






10. Was an I/O error encountered? 


No Yes 


Licensed Material — Property of IBM Section 2. Method of Operation 


Module 
or label 


WAITOOO 


IKQIOA/ 
(KQIOC 
STARTOOO 
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Diagram DE4. Buffer Manager: Do I/O 















Module 


















Start 1/O and Wait for its Completion or label 
BHDSKDQ —— 11. Wait for the scheduled |/O queue to DO10029 
ce | complete !/O processing. 
See Diagram DI. Buffer Manager: Wait WAITOO0O 
R15 
[yk aa ee 12. Was an 1/O error encountered? 
No Yes semee>(20) 
BHD $ 20) BHD 
ens Te 
BHDNSKDQ =——=——— 13. Start the new !/O and cause the !/O IKQIOC. 
ae Manager to wait before returning. STARTO0O 
BHD : ies 
aT sles . Handle the disposition of the |/O queue. 
— — 
— See Diagram DI. Buffer Manager: Wait WAITO60 


. Was an I/O error encountered? 
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Diagram DES. Buffer Manager: Do I/O 


Module 
Start 1/O and Wait for its Completion (con't) or label 


Re —_—o— oe oe oe 16. Are there any BCBs that need to DO10040 


be enqueued? 


No Yes omep>(23) 
4 . RIS 
a _——o eo 17. Is there an |/O error code from a previous DO!0050 


pass through this routine? 


No Yes ee Return 


Normal 

Return 
Wait for Scheduled Queue Only 
——— 18. Wait for the scheduled 1/0 queue to DOI0060 
Ee ss complete 1/0 processing. 


See Diagram DI, Buffer Manager: Wait. WAITOOOQ 





Notes for Diagram DE5 


16. Register 6 is tested to see if there are any BCBs that were not enqueued 
due to a device class conflict, or if the Buffer Manager wait routine 
(see Diagram D1!) caused register 6 to point to any BCBs that were 
“ignored” by the |/O Manager due to an |/O error on another BCB. 


17. If this is a second pass because BCBs were held back (in register 6) 
from being enqueued, then an error may have occurred on the first 
pass, If such an error did occur, its code was saved in register 5 during 
the second pass. 


This code is now restored to register 15, and the error return to the 
caller is taken. 
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Diagram DE6. Buffer Manager: Do I/O 


Wait for Scheduled Queue Only (con't) 


19. Was an |/O error encountered? 


Yes No 
+ 


20. Are there any BCBs that need to be 














R6 





enqueued? 

No Yes omm>(23) 
i y 
a. ———ooe oO 21. \s there an error code from a previous pass 


through this routine? 


i me ee Return 





22. Put the first error code in register 15. 


> Return 


Notes for Diagram DE6 


20. See note for step 16. 


21,-22. See note for step 17. In case of multiple errors (errors on both the 
first pass and the second pass), the first error code is returned to 
the caller. 
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R8 
[ ]}otor0 
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Diagram DE7. Buffer Manager: Do I/O 


Module 
or label 


0010120 








23. Save the error code in register 5. 


mp (4) 


Notes for Diagram DE7 


23. See note for step 17. 
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Diagram DF1. Buffer Manager: FREEBUFF and Return BCB 














* Diagrams BS, CA, CB, CC, CK, CL, DA 
FREEBUFF RG 


1. Set function codes for return BCB 


Return BCB 


RO 


(—__}------ 


R1 


[——}----- 


1. Is there a BCB (R1 = BCB)? 





Yes 


+ 


2. Should buffer be scratched? 


No 


[——}------ 


Yes No 


4 


3. Reset BCB flags to indicate null contents. 


t | 


4. Place BCB on free queue. 


BCB 

C_so+xkK —— — — —F 5. Does BCB require 1/0? 
Yes No 

AMBL 


4 


6. Is LSR processing specified? 


AMBLSR — oe ee 


Yes No 


a: 


Notes for Diagram DF1 


1. A BCB address is passed in R1. If this address is zero, FREEBUF must 
wait on all |/O. (For all references to the Do 1/0 routine and Do 1/0 
function codes, see Diagram DE.) If this routine is entered at |KQBFA20, 
the function code is passed in RO and moved to R7, and R6 is set to 
zero before proceding. 


Regardless of entry point, R7 contains one of the following function 
codes: 


negative - BCB is to be scratched. 


zero - if 1/O flags are set on in the BCB, go to the Do !/O routine to 
start 1/O but not wait. 


positive - if 1/O flags are set on in the BCB, go to the Do I/O routine 
to start 1/0 and wait. 


R6 may also contain a code: 
zero - Use R7 function codes as described above. 


non-zero - Override R7 function code if it was zero or positive. The 
override consists of decrementing by 1 the code in R6, and 
passing the result to the Do I/O routine as its function code. 


Module 
or label 


IKQBFA20 
FREEBUFF 


IKQBFA80 
RTNBFOOO 


RTNBFO10 


RTNBFO20 
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Diagram DF2. Buffer Manager: FREEBUFF and Return BCB 


























Module 











PLH 
7. ts this a direct write request? or label 
Ree eee 
= Yes No m5) 
8. Defer the write request. IKOBFB10 
See Diagram FE, Defer Write. 
SEE Return 
9. Set Do 1/0 function code to a default of RTNBFO25 
wait (X‘04’) 
R7 
— — ——— f° 10. Should 1/0 be forced for the BCB? 
Yes No me! 3) 
R6 $ 
fr -_-— oo 11. Is 1/O function code specified? 
Yes No em) 
12. Set Do I/O function code. 
13. Place BCB on nonscheduled 1/O queue and RTNBFO30 
process 1/0. DOIO000 
See Diagram DE, Do I/O. 
RPL 
[rk = — 14. ls user buffer specified? RTNBFO40 
{ Ne EEE Return 
15. Zero buffer address pointer. RTNBFO45 


Notes for Diagram DF2 


10. 1/O is forced if the BCB is for a catalog, or if a share option 4 data 
set is being processed. 

12. The I/O function code is set to X‘04' (start all 1/O) if R7 contains 
zero; the code is set to X‘00’ (wait for all 1/0 to complete) if R7 is 
positive. 
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Diagram DF3. Buffer Manager: FREEBUFF and Return BCB 













Module 
16. Reset BCB flags to indicate null contents in user or label 
buffer. RTNBFOS5O 
m> Return 
17. Set WAIT function and wait for completion of RTNBF100 
1/0. DOIO000 


Return 


2.199 | VSE/VSAM VSAM Logic, Volume 2 Licensed Material — Property of IBM 


Diagram DG1. Buffer Manager: Share Option 4 Hold 






























Module 
or label 
PLH 
—_— 1. Get the first Hold Block (THB). imonRGiO 
ee 2. Was CA-hold specified? 
-—~/  * = 
- 
y 
aaa, 3. Get the second THB. 
THB —_ : 
4. Is the THB already active? 
ae 
THBNTHB _ — Yes No om’ ) 
THBACTV | 
5. Release the SHAREOPTIONS (4) hold. FREEOOO 
6. Was there an error? | 
R15 _— — 
PARM § 
ie 
BFC1010 





7. Get RBA from the Buffer Manager 
Parameter List. 


PARMRBA — << 






Notes for Diagram DG1 j 
1. Share option 4 hold uses the LOCK supervisor service to lock an ® When a GET KGE (key-greater-than-or-equal) fails to find the 


individual control area across all partitions of the system. A lock exact key requested and the search for the next higher key leads 
name is constructed that uniquely identifies the file and the to a different CA. In this case, the hold on the original CA is 
control area within the file.. The format of the lock name (12 retained in the CA-split THB, while the next higher CA is locked 
bytes) is V.volid.Cinumber.CAnumber where: using the normal THB. This special case is for applications that 
V (1 byte) is the literal “V” that identifies VSAM lock names. do a GET KGE to find out whether a record exists, and then 
volid (6 bytes) as the volid of the catalog that owns the file. expect that status of existence or non-existence to not change 
Cl number (3 bytes) is the control interval number of the catalog until another operation is performed (such as a PUT to insert 
record that describes the data component of the file. the record). 
CA number (2 bytes) is either the number of the data control 4. The CA-split THB is only active if it was used for the special case 
area within the file that is being locked, or for keyed access to a described in step 1, but the GET KGE was followed by a PUT UPD 
_ KSDS, the control interval number of the sequence set record that caused a CA split. 


that points to the control area. This CA number has the constant 
1024 added to it, so that 1024 lock names are reserved for uses 
other share option 4 locking by Record Management. 
Internally, VSAM uses one share option 4 hold block (THB) to 
maintain the status of each outstanding request. For each string 
(PLH), only one request at a time is normally allowed. There is one 
additional THB (referred to as the CA-split THB) that allows one 
additional request for each string under either of two special 
circumstances: 
® During a CA split — to lock the new CA. 
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Diagram DG2. Buffer Manager: Share Option 4 Hold 











8. Round the RBA down to the beginning of the 
control area, and get the CA number. 














9. Is the THB already active? 


Yes No mmen>('2) 
§ 


10. Is the active hold for the same CA as the hold 
being requested? 


No Yes SEE Return 






AMDCINV 
AMDCIMLT 





THBACTV 
THBRBA 





11. Set error code indicating VSAM logic error. 


<> Return 










. Store RBA into THB. 





THBRBA 





ad THBNMCA 
Ta ee 13. Calculate and insert into the THB the part of 

THB the lock name that names the control area 

ee being locked. 


. Issue supervisor LOCK request. 


THBOTL —— 


Notes for Diagram DG2 


13. The part of the lock name that identifies the control area is the last 
two bytes of the lock name, as described in the note for step 1. 


14. The PLH is released during the LOCK request. This avoids a 
possible deadlock with the “buffer steal’ mechanism. Before 
the LOCK macro is issued, the bit THBNOTPR is turned off 
(as a potential problem determination aid). After return from 
the LOCK macro, the bit is turned back on. 
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Module 
or label 


CARBA000 


BFC1026 
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Diagram DG3. Buffer Manager: Share Option 4 Hold 
















15. Was there an error? 


Yes No 


i 


16. Does error code indicate lock already 
held by same VSE task? 


No Yes 


| 


17. Does error code indicate ‘‘lock table 
full’? 


t No 


18. Set “lock table full” return code. 


=> Return 


19. Set “VSAM logic error” return code. 


Se Return 


20. Does another PLH have a hold on the same 
control area? 


Yes No wm (23) 


PLHTHB THBRBA 


PLHTHB THBRBA 





Notes for Diagram DG3 


20. It is necessary to determine if the other lock for the same control 
area is one that is already known. If the lock is in a THB of 
another string, the request is completed normally, but the THB 
is flagged as a “pseudo hold.”” The other string will check for 
such “pseudo holds’ when it releases its hold. 


When one task requests a second hold (under a different PLH) 
for the same control area, the hold given to the second request 
is referred to as a ‘pseudo hold.” 
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R15 
R15 
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Module 
or tabel 


BFC1030 
FNDPSOOO 
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Diagram DG4. Buffer Manager: Share Option 4 Hold 






. Indicate THB is active and is a ‘pseudo’ THB. 


THB 
THBSTAMP ee ee 


. Copy the time stamp indicating when the “real’’ 
hold was acquired from the “‘real’’ THB. 


ommee>(27) 


23. Set return code indicating that there is an 
exclusive control conflict within one VSE task. 


Cece Return 


. Indicate THB is active and “‘real’’. 













. Time stamp the THB to indicate when the 


PARM hold was acquired. 






. Was CA hold specified? 


No Yes mm> Return 


. Indicate that the CA is held. 








=> Return 





Notes for Diagram DG4 
25. The time-of-day clock is stored into an 8-byte field in the THB. 
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Module 
or label 


BFC1040 


BFC1050 


BFC1060 


BFC1070 
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Diagram DH1. Buffer Manager: Share Option 4 Free 





R15 
Previous RC 


R& 


1. Save previous return code. 


~~ 


LH 


PLHTHB SS 2. Get the first THB. 


+ 


HB 


THBACTV — ee |B. Is the THB active? 
Yes No 


li 
i 


PARM 


PLHHOLD = 4. Is a share option 4 hold also being 


requested? 


J No 


5. ts the share option 4 hold being deliberately 
released and reacquired? 


y Yes 


6. Round the RBA (for which a hold is to be 
done} down to the beginning of the control 
area, 


PARM 


PLHBRKHD _——_—_—o 


PARM 


PARMRBA _—-—oo oo 


Notes for Diagram DH1 


1. 


The previous contents of register 15 are saved so they will not be 
inadvertently destroyed. This is necessary because IKOBFC20 

may be called to release outstanding share option 4 holds for IKOQBFA 
error condition processing. 


. The first THB is for normal processing; the second is the CA-split 


hold THB. 


. The primary reason for testing if a hold is being done at the same 


time as this free is so that no exclusive control hole will be caused 
if the same CA is specified for both free and hold. This type of 
free and hold occurs when |KQLCD has been called by IKQMDY 
after IKQMDY got a minus one return code from IKQCIS. 


. If the share option 4 hold has been held for an excessively long 


time, then the exclusive control is temporarily interrupted. In 
this case, the PLHBRKHD flag will have been set by IKQLCN, 
IKOGNX, or IKQGPT. 
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Module 
or label 


IKQBFC20 
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Diagram DH2. Buffer Manager: Share Option 4 Free 










R7 
RBA —— 7. Is the CA currently held the CA that the 
ae hold request ask to be held? 
THB _ : 
- Y No ome (°) 
fe 
| 
8. Indicate the hold request is satisfied. 
PARM 


i 


PLHKGEHD 9. Is the request to Record Man- 
agement a GET KGE that did 
not find the exact key originally 


requested? 


| 
| 
| 


Yes No 


4 


10. Is the CA-split THB active? 


THBNTHB 


No Yes 


t 


THBACTV 





Notes for Diagram DH2 


9, This is a test for the special case described in the note for step 1 
of Diagram DG1. 


10. The only way in which the CA-split THB could be active is if 
the GET KGE search for the next higher key had proceeded to 
the next CA and that CA has been found completely empty; 
the search now proceeds to a third CA. 









Module 
or label 


BFC2010 
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Diagram DH3. Buffer Manager: Share Option 4 Free 































Module 
or label 
PLH 
aan . Swap the THBs. Pd 
THB THE 
ae) . Free the normal THB. See Diagram DJ, a 
FREE ONE THB. ; 
on 
THBNTHB 
No error 
BFC2020 
. Reset switch indicating share option 4 FREEOM 
hold is in effect. 
BFC2050 





PLHHELD 


Notes for Diagram DH3 


11. This step retains the hold on the CA originally searched on the 
GET KGE in “CA-split THB”, and frees the “normal THB”, so 
it can be used for a hold on the next CA. 


13. The ‘next’ CA is freed, so that a hold can be done on the third 
CA. 
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Diagram DH4. Buffer Manager: Share Option 4 Free 

















15. Release the share option 4 hold. 
See Diagram DJ2, FREE ONE THB. 


No error 


I 


Error 


16. 1s return code zero saved? 


Yes No 


$ 


17. Move the return code from free into 
the cumulative return code register. 


| 





18. Get the next THB. 


THBNTHB 


THB 


Notes for Diagram DH4 


16.-17. The error code returned to the requester is always the first 
nonzero return code. 
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Module 
or labet 


BFC2060 


BFC2070 


BFC2200 


Diagram DHS5. Buffer Manager: Share Option 4 Free 












Module 
or label 
R3 es 
aaa —— = 19. Is there another THB? 
Yes No 
THB | 
—_-—— — 20. Is the CA-split THB active? 
Yes No enmmp(26) 
PARM G8) 
_—oOoO 21. Does the parameter list indicate that a new 
pF eens al hold is being requested at the same time 
as this free? 
Yes No ommm>(i5) 
PARM I 
—— eee 22. Round the RBA (for which the new hold is CARBAOOO 
peas being requested) down to the beginning 


RBA of the control area. 


Notes for Diagram DH5 


19. If there is another THB, it is because we have just processed the 
normal THB, and have not yet processed the CA-split THB. 


21. See note for step 4. 
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Diagram DH6. Buffer Manager: Share Option 4 Free 















































Module 
R7 or label 
= 23. Is the same CA currently held as is requested PLH 
ee fie Sy | 
: PLHTHB 
Yes No mmaeep('5) 
§ THB 
24. Swap the THBs. 
THB 
THBNTHB 
25. Indicate that the new request for a hold is 
satisfied. 
26. Set return code from cumulative return EEnCEe 
code. PLHHELD 
R15 
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Diagram DI1. Buffer Manager: Wait 










1. Was this routine entered at 
WAITOOO or WAITO60? 


yt WAITO6O mmm ( 5 ) 


2. Are there any BCBs on the 
scheduled queue? 


y No SEE Return 






BHD 


BHDSKDQ —— 


AMBL 


AMBLSR 


3. Determine whether to call 
the CKD 1/O Manager or 
the fixed block |/O Manager. 


AMDARCH 
AMDARCHS 


BUFSSRCD 





Notes for Diagram DI1 


1. 


This decision is not part of the code. It appears here for convenience 
in documentation only. 


All requests on the scheduled queue are assumed to be for the same 

1/O Manager. The determination of which |/O Manager to use is based 

on bit AMDARCH or AMDARCHS in the AMDSB for the first BCB 

on the scheduled queue, according to the following conditions: 

@ If the AMDSB is for a data component, AMDARCH determines 
which !/O Manager to use. 


@ = If the AMDSB is for an index and the !/O is for a high-level index 


Ci (BUFSSRCD=0), AMDARCH determines which 1/0 Manager 
to use. 


@ = If the ADMSSB is for an index component and the 1/O is for a 
sequence set Cl (BUFSSRCD=1), AMDARCHS determines 
which 1/O Manager to use. 
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Module 
or label 


IKQBFAOO 
WAITOOO 
WAITO60 


WAITO10 
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Diagram DI2. Buffer Manager: Wait 


BHD 


BHO1STW 


R8 


BCB 


BUFNBCB 










BUFWRIGN 
BUFRDIGN 


Notes for Diagram DI2 


5. 
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. Call the appropriate 
1/O Manager. 


See Diagram EA. |/O0 
Manager: Mainline 






. Setup to scan the 
scheduled 1/O queue. 


. Save the pointer to the 
previous BCB on the 
scheduled I/O queue. 





Get the next BCB. 
Test if there is still another BCB. 


8. Did the 1/O Manager “ignore” either 
a read or write request on this BCB? 


7, 





More BCBs No BCBs 





Register 8 is initialized so that BHD1STW can be addressed as if it 
were the BUFNBCEB field. 


A read or write request may have been flagged by the I/O Manager as 
“ignored’’ due to an I/O error on another buffer. The Buffer Manager 
will retry these requests. 


Module 
or label 


WAITO6O 


WAITO70 


WAITO80 


WAITOS0 
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Diagram DI3. Buffer Manager: Wait 





















ace Module 
. Set the read or write request bits al or label 
so the correct processing will be REDRVOO0O 


BUFCMW 


done on the next call to the I/O 
Manager. 






















10. Dequeue the BCB from the scheduled 
1/O queue, and enqueue it on the 
register 6 queue of BCBs to be 
enqueued later (upon return to the 
Do 1/0 routine) to the nonscheduled 


1/0 queue. 
ame? ) 


11. Was a read operation done for this BCB? 


Yes No ee (13) 
y 


12. Update the current RBA to that of 
the Cl read, and mark the buffer as 
having valid contents. 


REDRVO030 







BUFNBCB 































PLHBSAVE 
REGSV5B 


REGSV6B 


WAIT100 


















BCB 
BUFCWRBA 
BUFCVAL 






BUFCRRBA 


Notes for Diagram DI3 


9. 


10. 


The read or write request bits will have been turned off if a read or 
write ignore was indicated. 


At this time, the R6 value to be used is contained in the 1/O Manager 
save area (PLHBSAVE + 52). The saved function code (PLHBSAVE 
+ 48) for the Do |/O routine is set in this step to force starting and 
waiting on all 1/0. 
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Diagram DI4. Buffer Manager: Wait | 























BHDSKDQ 
BHD1STF 
PLH 
PLHSAVE 
REGSV5B 
REGSV6B 





Free Buffer. 







Return 


Notes for Diagram DI4 


15. The R5 and R6 values needed by the Do |/O routine are in the !/O 
Manager save area in the PLH (PLHBSAVE + 48). 
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13. Turn off all 1/O request flags. 


eme>( 5) 


14. Move the BCBs from the scheduled 
1/O queue to the free queue. 


See Diagram DD. Buffer Manager: 


. Load registers 5 and 6 with the 
values needed by the Do 1/0 routine. 















Module 
ob 
WAIT110 

BUFCMW 
BUFCRRD WAIT120 


BUFPFMT 


BHD 


BHDSKDQ 
BHD1STF 
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Diagram DJ1. Buffer Manager: Free One THB 


+ 
x= 
ao 


THBPSUDO 


> 
| 
wo 
ia 










AMBLPLHE 


PLH's THB's 


PLHTHB THBRBA 


PLHTHB THBRBA 











Notes for Diagram DJ1 


*DG, DH 


1. Set the THB inactive. 


2. Was the hold a “pseudo” hold? 


ome“) 


Yes No 


4 


3. Clear the “pseudo” flag. 


eames Return 
(+4) 


4. Does another PLH have a hold on 
Yes No 


the same control area? 


5. Change the other THB’s hold from 
“pseudo” to ‘‘real’’. 





a> Return 


(+4) 


1. Register 3 contains a pointer to the THB to be freed upon entry to 


this routine. 


There are two returns from FREEQOO. The returns are by means of 
a branch vector following the call. Return to the return address 


plus displacement: 


+0 — indicates error. An error code has been set into register 15. 


+4 — indicates no error. 


2. See the note for step 21 of chart DG for a description of “pseudo” 


hold. 


4. A search is made of THBs pointed to by other PLHs. 


Licensed Material — Property of IBM 


THB 


THBACTV 


| THBREAL | EAL 


THBPSUDO 


R8 
THB 
THBREA 
THBPSUDO 
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Module 
or label 


FREEOOO 


FREEO10 
FNDPSOOO 


FREEO20 
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Diagram DJ2. Buffer Manager: Free One THB 






Module 
THB or label 
aoe 6. Issue UNLOCK request to the supervisor. FREEO30 


ae 
THBDTL a 









7. Was there an error? 
Return 
ry No > +4) 


8. Set error code indicating VSAM internal 


logic error. 
a> Return 
(+0) 


Ri5 _ 


eee 






Notes for Diagram DJ2 


8. The errors that are possible on UNLOCK should not occur. If any 
do occur, it is a logic error. 
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Diagram DK1. Buffer Manager: Share Option 4 Hold Time-out 






AMDSB 


AMDDST 
wees 


PLH “I 


PLHDSW 
PLHHELD 











‘PLHXSW 
PLHHELD 












RPL / 
eam / 
/ 
a 


/ 
Time-of-day / | 


clock 


ES) 


PLH 


Yes 


PLHTHB 


THB 
THBSTAM 
PLH / / / / 


PLHSAVE+28 


RO (Se 


PLH 
PL 














PLHSAVE+28 


PLHPCI 


PLHSPAN 


R 





RPLOIR 


RPLREQ 


Notes for Diagram DK1 


1. This routine checks to see if the elapsed time (since the share option 
4 hold was acquired) has exceeded one or two values: 
@ A basic fixed limit (half a second) 
®@ Aslightly shorter threshold (450 milliseconds). 
One of these values is selected, based on an input parameter in 
register O (RO): 
® RO= nonzero — check against the basic time limit 
@ RO = zero — check against the shorter threshold. 
if the shorter threshold has elapsed, then the basic limit is about to 
expire. The check for the shorter threshold is used when a transition 
is being made to a new control interval, because it is cheaper to 
release and reaquire the hold then, rather than after the control 
interval has once been read. 
There are two return codes in register 15 from IKOBFC30: 
negative — indicates the share option 4 hold should be released 
and reacquired 
zero — indicates the share option 4 hold should not be 
released. 
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*DF, BL, BN, BO, 8S 


1. Is share option 4 hold in effect? 


Yes No 


2. Calculate elapsed time since share option 
4 hold was acquired. 


3. Is elapsed time greater than the shorter 
threshold (450 milliseconds) ? 


Yes No 


4. Is check for shorter threshold requested? 


No Yes 


5. Is elapsed time greater than basic time 
limit (half a second)? 









6. Is there any special reason for not releasing 
share option 4 hold? 




















Module 
or label 
(KQBFC30 
ge Return 
PLHSAVE+28 
BFC3020 











. The share option 4 hold should not be released under the following 


conditions: 

® During direct (DIR) processing. 

® During retrieval of a spanned record. 

®@ Ona request other than a GET-UPDATE or PUT-ADD. 

@ |n backward processing, when the bit PLHPCI is on. 

The return code indicating that the hold should be released is 

not given if status has previously been set indicating that the share 
option 4 hold should be broken (PLHBRKHD on in PLHDSW11 or 
PLHXSW1). 
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Diagram DK2. Buffer Manager: Share Option 4 Hold Time-out 


AMDSB 


—-— 
a ell 7 
a” 
RPL 4 
pee 






R15 

PLH 
PLHDSW1 
PLHBRKHD 


PLHXSW1 
PLHBRKHD 


7. Set flag to cause release and reacquire of share 
option 4 hold, and set return code. 


SEP Return 

















8. Set zero return code. 





SEE Return 





R15 


Notes for Diagram DK2 


7. The flag PLHBRKHD is set in byte PLHSXW1 for keyed access to 
a KSDS. fn all other cases PLHBRKHD is set in byte PLHDSW1. 
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Module 
or label 


BFC3027 
BFC3030 


Diagram DL1. Buffer Manager: Issue LOCK Macro 






“BD, CL, CB, CH 








AMBL 
AMBLSHRW ee ee 


PLH Pa 
en We 


0 a 






1. Is it share option 4? 


Yes No amp(3) 
$ 


2. Make sure flags are off in THB. 









3. Issue LOCK macro 


a No error amee>(12) 


4. Did return code indicate lock already 
held by same VSE task? 


No Yes 
$ 


5. Did return code indicate “‘lock 
table full’’? 


Yes No ommp(7) 
¥ 


6. Set “lock table full” return code. 


Zz 
















———p> Return 





Notes for Diagram DL1. 

1. IKOQBFC40 is called to issue a LOCK macro and determine the 
Record Management internat code. It is used for locks other 
than the basic share option 4 control area locks. 


If IKQBFC40 is called for a share option 4 file, status is kept 
in the THB showing which locks have been set. 


2. A problem-determination-aid bit THBNOTxx is turned off, 
indicating that the lock corresponding to the suffix xx is in 
the process of being tocked. 


3. After return from the LOCK macro the problem-determination- 
aid bit THBNOTxx is turned back on. 


4. The lock would be already held by a VSAM request different from 
the one currently being processed. This type of locking conflict 
will only occur here if the second VSAM request is issued in an 
exit from the first (e.g. an EXCPAD exit). 
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THBLSTAT 











Module 
or label 


(KQBFC40 


BFC4010 


BFC4015 
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Diagram DL2. Buffer Manager: Issue LOCK Macro 








. Set return code indicating internal VSAM 
logic error. 


AMBL 


me Return 


8. Set basic “exclusive control exception’ 


AMBLSHRW es return code. 


. Is it share option 4? 


Yes No mm> Return 


$ 


10. Scan THBs for another string (PLH) holding 
the same lock. 





uv 


LH - 


PLHTHB 






Not 


Pee Found Found <> Return 
AMBLPLHF 


AMBLPLHN 
AMBLPLHL 


11. Set return code indicating ‘‘exclusive 
control exception outside of the requestor's 
string-set”’. 





ace Return 


PLHTHB 


THB 


THBLSTAT 


THBNM 





Notes for Diagram DL2 


8.-11. For share option 4, a different return code (E44) is given if there 
is an ‘‘exclusive control conflict’ between strings (PLHs) of the 
same string-set (set of PLHs), than if the ‘exclusive control conflict” 
is outside the same string-set (return code E55). 
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R15 
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Module 
or label 


BFC4020 


BFC4030 


Diagram DL3. Buffer Manager: Issue LOCK Macro 


Module 
or label 









THB 
THBLSTAT 


12, Set flags indicating this string (PLH) has 
locked the particular lock. 








BFC4060 


> Return 
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Diagram DM1. Buffer Manager: Issue UNLOCK Macro 


Module 
or label 






“BD, CL, CB, CH 










AMBL 


AMBLSHRW —————=—= 1. Is it share option 4? 


Yes No mamem>( 3) 
4 


2. Turn flags off in THB. 


1KQBFO6O 







PLH Pe 


THB 
PLHTHB THBLSTAT 










3. Issue UNLOCK macro. 


Error No Error S,> Return 







R15 





4. Set Record Management internal 
return code. 





—=> Return 
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Diagram EA1. I/O Manager: Mainline 




















































Module 
or label 
AMDSB 
ares *Diagrams DE, DG, DI, FC 
AMDATTR2 
tp ikaloc. 
. Perform initialization. iKQIOC 
7 PLHBSAVE 
PLH Nn —— a 
. through 
PLHDBHD 2. o sare buffer header (either data REGSV6 10010 
PLHIBHD 
es . Reset the “buffer stolen” bit. 
BHD . 1s the first BCB on the scheduled queue also the a 
ay a first BCB on the 1/0 queue? —— 
———_— = chimeiabe om (3) aaa 
J 
5. Wait for completion of 1/0. 1KQIOD20 
See Diagram EV, Wait for 1/O Completion. 
6. Get return code from wait routine for passback. 10A020 


Notes for Diagram EA1 






The Buffer Manager (IKQBFA) places a pointer to a buffer queue in 
BHD1STW. The buffer queue requires either a WAIT only (scheduled 
queue) or an EXCP (nonscheduled queue), and it is now treated as 

an I/O queue. IKOBFA sets the BHD1STW address to that of the 
scheduled queue whenever the |/O operation is to be completed, 


t(KQIOA contains !/O Manager code for count-key-data devices. 
IKQIOC contains |/O Manager code for fixed block devices. 

Except for these device differences, the code and labels in these 
two modules are essentially the same. : 





When I/O Manager functions are to be performed, the PLH workarea 
(PLHWAREA)} is set to zero because it will be used for switches, 
counters, etc. The address of the data or index BHD is stored in the 
PLH workarea; it is used for repositioning to the correct BHD 
throughout the program. 


NOTE: In the input and output columns of the HIPO diagrams. 


or if a ‘‘buffer steal’ is to be performed. 


The purge buffer routine (IKOPBF) places a pointer in BHD1STW 
for the buffer queue to be purged and sets the nonscheduled queue 
bit (BHDNSKD) in BHDHFLAG. This action causes both an 
EXCP and WAIT to occur. 


. : 5, The WAIT routine takes the EXCPAD exit (if specified), waits for 
PLH workarea fields are shown as part of the PLH. They are listed 1/0 completion, and detects any I/O errors. 
as sub-fields (indicated by dashed lines) in the PLHWAREA field. ee 
PLHWAREA is mapped by IKQIOWKA,; it is documented in the 6.-8. These steps perform termination of the 1/O Manager. 


Data Areas section of this manual under the heading ‘I/O Workarea 
(IOWKA)”. 


Whenever buffers are stolen, bit BHDSTL is turned on. This bit is 
tested in later steps, and 1/O Manager processing is terminated if no 
buffers are available for 1/O. 


There are four buffer queues: the scheduled queue, the nonscheduled 
queue, the {/O queue, and the free queue. (These queues are 
described in the notes for Diagram DA, Buffer Manager: GETBUFF.) 
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Diagram EA2. I/O Manager: Mainline 











Module 
or label 
7. Clear the |/O and volid indicators in the 
BoE. 10A100 
10A030 











————————"*_ 8. Restore registers. a> Return 





REGSV9 
through 
REGSV6 
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Diagram EA3. I/O Manager: Mainline 







































Module 
- 
PLHWAREA _—— 9. Get address of BHD, and determine if 
WKADBHD as there is an entry on the t/O queue. 
aaa Entry found = No entry emme>(6 ) 
J found 
10. Clear error flags in BCB. 10A210 
R10 | BUFFLAG2 | LAG2 
~_— 11. Get the address of the correct AMDSB. oe 
12. Clear any assigned CCB address in the BCB, 
and turn off the ‘replicated index read” bit. 10A220 


BCB 


BUFFLAG1 —< 


13. Is the buffer to be used for a rear operation? 


Yes No 






Notes for Diagram EA3 
9.-12. These steps perform initialization for processing buffers on the 
(/O queue (requiring an EXCP). 


The buffer queue must be tested for entries in the case where a 
“puffer steal’” may have occurred. (A ‘‘buffer steal’ takes all the 
buffers on the queue.) If there are no buffers on the queue, the 
1/O Manager terminates. 


13.-19. These steps are performed for any buffer that requires a read 
1/0 operation. 
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Diagram EA4. I/O Manager: Mainline 









. Get the addresses of the RPL 
and the |ODRB for a read. 





PLH 
PLHBSAVE 
REGSV12 


PLH 


PLHWAREA 


WKAIOMSW 

















16. Turn off “write pass” bit. 









17. Convert the RBA to a DASD address. 








BUFCURRU 


See Diagram ES, Convert RBA. 








BCB 


BUFFLAG1 


Return vector: 









@ RBA not convertible; reset 


valid and read bits. 


® Retry RBA conversion 


@ RBA converted 


y 


18. Turn on “at least one read”’ bit. 







PLHWAREA 


WKAIOMSW 






Notes for Diagram EA4 


15.-17. These steps convert all RBAs to physical DASD addresses. 


18. 


2.216 


If the conversion failed, the |/O Manager returns control after 
clearing the read and valid bits in the buffer belonging to the 
invalid RBA. (Either the RBA did not exist in the current range 
of RBAs in the EDBs, or the volume mount failed.) 


If a volume mount was successful, then the buffer queue has 
been changed by the purge buffer routine (IKQPBF). Normally, 
IKQOPBF would have called the |/O Manager to write all buffers 
associated with the volume to be demounted (first pass) and to 
read all buffers associated with that volume (second pass). In 
this case, however, |KQPBF turns off the read (BUFCRRD) 
and/or write (BUFCMW and BUFCFMT) bits for these buffers 
so they will not be processed by the |/O Manager on its second 
pass. 


If at least one buffer is found that requires a read 1/O, the 
1OM1RD bit is turned on in the PLH for optimization. 


If no buffers require a read 1/O, the steps for sorting of 
buffers according to DASD addresses and testing of buffers for 
read 1/O operations are bypassed later. 


Module 
or label 


RBACNOO0O 
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Diagram EAS. I/O Manager: Mainline 


OB 


EDBFLGS oe, 


19. If this is a replicated index (in EDB), 
turn on the replicated index bit in the BCB. 








indicator. 


CB 


20. Is the buffer to be used for a write 
operation? 


Yes No mmm >(30) 
4 


21, Get the addresses of the RPL 
and the |ODRB. 


BUFFLAG1 _——— 


















PLH 
PLHBSAVE 
REGSV12 


BCB 


BUFCURWU 

















22. Turn on the “write pass’ bit. 












. Convert the RBA to a DASD address. 
See Diagram ES, Convert RBA. 


Return vector: 







@ RBA not convertible; reset 
all 1/0 switches except read. 


@ Retry RBA conversion. omme>(°) 


@ RBA converted 





Notes for Diagram EA5 


20.-30. These steps are performed for any buffer that requires a 
write |/O operation. 


23. This step performs RBA conversion in the same manner as 
step 17. 
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For CKD devices, also set ‘read any record” 
































BCB 
BUFFLAG2 


BUFRR 






PLH 


PLHWAREA 
WKAIOMSW 










BCB 


BUFFLAG1 









Section 2. Method of Operation 


Module 
or label 


10A230 


10A240 


RBACNOOO 
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Diagram EA6. I/O Manager: Mainline 






PLH Module 


or label 


10A260 
PLHWAREA 
WKAIOMSW 


24. Turn on the “at least one write’”’ bit. 





BCB 


BUFFLAG1 — 















25. Is this a CA preformat write 
operation? 


Yes No ome (27) 
4 


—=_ 26. Calculate the number of blocks required 














BCB 


BUFBKSTW 






CKD 
Devices: Devices: 































BCB BCB to preformat the rest of the CA or to BUFCRABA 
BUFCWRBA BUFCWRBA write a replicated index. ees oy 
AMDSB LPMB 


For RRDS, reset BUFCRRBA to zero. 


AMDCINV LPMCASZ 
Pp 
LPMB LPMBLKSZ 


LPMCASZ 








BCB 


BUFCRRBA 


AMDSB 


AMDATTR1 


Notes for Diagram EA6 


24, The buffer write optimization bit is like the read optimization 
bit described in step 18. 


25.-28. These steps calculate the number of physical records required 
to format the remainder of a CA when preformatting is performed, 
or the blocks required to write a replicated index or sequence 
set. 


For fixed block devices, the calculated value is the number of Cls 
remaining in the CA. For CKD devices, it is the number of 
physical records. 
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Diagram EA7. I/O Manager: Mainline 






EDB 


EDBFLGS 















27. \s this a write for replicated index? 


Yes No 
+ 


28. Get the number of blocks that have 
to be written from the LPMB. 


-_ 
—_ 
—_ 











LPMB for FBA 





LPMNREP 


. For CKD devices, save the write information 
for the write check, and reset the number 
of blocks ina Cl. 






LPMB for CKD 






LPMBNOBK 
. Are there more buffers to process? 
No Yes 


eee ('0) 
y 


. Is there “at least one write” to 
be performed? 












BUFNBCB 


PLH 7 






Yes No 


PLHWAREA 


WKAIOMSW 






Notes for Diagram EA7 


29. 


31. 


For CKD devices, the number of blocks and the DASD address 
are saved for later use when creating the write-check CCWs 
for the channel program. 


If the ‘‘at least one write’’ bit is on, steps 32.-40. are performed. 


These steps perform the write processing for the buffers. 

Buffers are sorted in ascending sequence according to DASD 
addresses to minimize rotation time. Channel programs are built 
to perform the write operations. 

For CKD devices, processing includes write-check operations. 
After a CKD write pass, the same loop is executed for write-check 
(except for the sort operation). Write-check is indicated by bit 
AMDWCK in AMDATTR1 in the AMDSB. 
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BUFBKSTW 
BUFBKTWI 
BUFCNOI 
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Module 
or label 


10A270 


10A280 


10A290 


tOA300 
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Diagram EA8. I/O Manager: Mainline 













. Turn on the “process write” bit, 
and get the buffer header. 






PLHWAREA 


WKAIOMSW 














33. Sort the BCBs according to write 
DASD addresses. 


See Diagram EU, Sort BCBs. 


. Get the first BCB on the I/O queue. 


Is this buffer to be written? 


Yes Yes 
CKD* FBA* 










—_ 
BUFFLAG1 aad 


No 


Module 
or label 


SORTOOO 


10A310 


10A320 


*“IKQIOA contains all CKD I/O Manager code, and 


IKQIOC contains all FBA I/O Manager code. 


Consequently, CKD vs. FBA decisions do not appear 
in the actual code. The “decision” is shown in the 
HIPO for convenience in documentation only. 


Notes for Diagram EA8 


32. The bit }OMPROCW in the PLH workarea indicates a write pass is 
being performed on the buffers when sorting and building channel 
programs. 


33. Buffers are sorted in ascending DASD address sequence. Sorting is 
performed by rechaining the buffers. When the CCWs are built, 
they are executed in the proper sequence because each CCW in 
the chain points to its buffer in the correct sequence. 


34, At this point there is at least one buffer on the I/O queue. 


35. If the buffer is to be written, then steps 36.-40. are performed; 
otherwise the next buffer in the queue is obtained and tested in the 
same manner. 
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Diagram EA9. I/O Manager: Mainline 


FBA Processing 


36. Get the address of the write IODRB, 
and point to the write CCW skeleton. 






CCW Skeletons 














. Build a channel program for a 
write operation. 





See Diagram EG, Build 
Channel Program. 


38. Is a “buffer steal” to be done? 


PLHSWTCH 
Ran ee 
BHD J 


39. Have the buffers been stolen? 








No 


+ 


Yes 


Notes for Diagram EA9 


36.-37, 


38. 


39. 


These steps build a CCB, a CCW string, the |/O data blocks for 
the DASD arguments, and make the Fix List entries for all the 
buffers to be written to a CA. Each CA has its own set of CCB, 
CCW, and I/O data blocks; they are al! built for all the writes 
performed during this pass. The module contains a skeleton of the 
CCW type to be built; the address of this skeleton is passed to 

the BDCCW routine via register 15. 


The “buffer steal” bit (PLHSTBCB) is turned on by the Buffer 
Manager whenever the !/O Manager is requested to complete 
the |/O of another task. 


\f the answer to this step is ‘‘yes”, then buffers are being stolen 


from another task while the other task is also doing 1/O Manager 
processing. 


\f the answer to this step is ‘‘no”, this request to the |/O Manager 
is for normal processing, not a “buffer steal”. 


This step determines if buffers were stolen during the exit to 
the user's EXCPAD routine. 
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Module 
or label 


10A330 


BLDCPOOO 


10A340 
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Diagram EA10. I/O Manager: Mainline 














CCW Skeletons CKD Processing 


. Get the address of the write IODRB, 

and point to the write CCW skeleton 
(or format-write or write-check CCW 
skeleton). 






SCCWRBCK 





Build a channel program for a 
write operation. 

















See Diagram EG, Build Channel 
Program. 






. Initialize the write |ODRB 
for the write check. 


. Isa “buffer steal” to be done? 





PLHSWTCH 
a; _ 
BHD $ 


45. Have the buffers been stolen? 


No Yes 


+ 


46. !s there another buffer on 
the queue? 


No Yes emme>(35) 






BCB 
BUFNBCB 









Notes for Diagram EA10 
41.-42. See notes for steps 36.-37. 


43. The write IODRB is initialized with the write-check data. 
44, See notes for step 38. 
45. See notes for step 39. 
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Module 
or label 


10A340 


BLDCPO0O 


10A350 


1O0A360 
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Diagram EA11. I/O Manager: Mainline 





















CKD Processing (continued) 
PLHWAREA 
WKAIOMSW 


AMDSB 


——<— 
AMDATTRI eo 





47, \s the ‘‘process write” bit on? 
Yes No 
48. Isa write-check required? 


Yes No snemen>(50) 
+ 


49. Turn off the ‘‘process write’’ and 
‘at least one write” switches, and 
turn on the ‘‘process write-check”’ 


switch. 


. Is there “at least one read” 
to be performed? 


Yes No 
¥ 


Turn on the “process read” switch, 
and turn off the “process write” 
switch. Get the buffer header. 


















PLHWAREA 


WKAIOMSW 


WKADBHD 











Notes for Diagram EA11 


47,-49, Setup to perform a write-check pass if required. 


60. These steps perform read processing for the buffers. Buffers are 
sorted in ascending sequence according to DASD addresses, and 
channel programs are built to perform read operations. 


These steps are similar to the write operation described in 

steps 31.-40. Read CCWs are added to the end of the write CCWs 
when the buffers to be read are for the same CA as any writes in 
the preceding write pass. 
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PLHWAREA 
WKAIOMSW 
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Module 
or label 


10A400 
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Diagram EA12. I/O Manager: Mainline 









Sort the BCBs according to 
read DASD addresses. 


See Diagram EU, Sort BCBs. 











Get the first BCB on the !/O 
queue. 





. 1s this buffer to be read? 
Yes No x 69) 


55. Get the addresses of the read 
1ODRB and the read CCW skeleton. 







BUFFLAG1 


BUFCURRU 






For CKD, replicated index read 
CCW skeleton may replace the 
read CCW skeleton. 










CCW Skeletons 


Build a channel program for 
a read operation. 







See Diagram EG, Build Channel 
Program. 


Notes for Diagram EA12 


53. 
54. 


See notes for step 34. 
See note for step 35. 


55,-56. See notes for steps 36.-37. 
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Module 
or label 


SORTOOO 


10A410 


104420 


BLOCPO0O 
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Diagram EA13. I/O Manager: Mainline 






































PLH : 5 oe intel 
ae = 57. Is a “buffer steal’’ to be done? 
—_— 
—_ 
=P No Yes 
BHD 4 
Pas non = -» 58. Have the buffers been stolen? 
— 
—_ — 
ce es amen (3) 
BCB $ 
59. Is there another buffer on the 10A430 
queue? 
No Yes 
60. Issue EXCP. 1OA500 
a See Diagram EL, Do EXCPs. 1KQOD10 
—_—_— 61. Is a wait required? 
rae oe ee =e 
62. Wait for completion of 1/0. {KQIOD20 





See Diagram EV, Wait for I/O 
Completion. 





Notes for Diagram EA13 


57. See notes for step 38. 
58. See notes for step 39. 
60. This step causes the Fix List to be performatted in the format 


required by the system. An EXCP is issued for each |ORB that 
has been properly initialized in the CCB chain. (Normally there 
will be only one CCB in the chain.) 


For fixed block devices, the EXCP routine also performs 
track hold. 


61.-62. If the 1/O manager was called by the purge buffer routine 
(IKQPBF), then bit BHDNSKD in BHDHFLAG is set on, and 
the 1/O manager waits for completion of the !/O operation 
just started. 
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Diagram EB1. I/O Manager: Allocate a Control Block 






“Diagrams EC, EF, EG, EN 


Get the Block Pool Header and lock it 
during control block allocation. 










See Diagram EE, Lock the Block 
Pool Header. 





BKPFSTBK 


FCDB 


FCBCHAIN [_____ + 






2. Is there a block in the pool? 


Yes No am: ) 
$ 


3. Dequeue the first block, clear it, 
and add 1 to the block count. 






















Release the lock on the Block 
Pool Header. 












See Diagram ED, Unlock the Block 
Pool Header. 


Se Return 
+4 


5. Save the registers and get a 2K 
block (GETVIS). 







Was the GETVIS successful? 


Yes No (11) 


Notes for Diagram EB1 


1.-4. The address of the Block Pool Header (BKPHD) is obtained from 
the AMDSB, and the Block Pool Header ECB is locked while 
allocation takes place. The first available block in the chain is 
removed from the chain and cleared to binary zeros. The PLH 
counter for the number of allocated blocks used for a given 
CCB is incremented by one. The Block Poo! Header is now 
unlocked, and control returns to the caller. 


5. If no block is available, a2K GETVIS is issued with PAGE=YES 


and POOL=YES specified. If no space can be obtained, the 
Block Pool Header ECB is unlocked, and an error return is taken. 


2.226 VSE/VSAM VSAM Logic, Volume 2 








BKPHD (FCDB) 







BKPFSTBK 


PLH 





PLHWAREA 


WKABLKS 


WKAGETVS 














Module 
or label 


IKQIOA/ 
IKQIOC 
ALLBKOOO 


AMDLKOOO 


ALLBKO10 


ALLBK200 


ALLBK100 
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Diagram EB2. I/O Manager: Allocate a Control Block 





BKPHD (FCDB) 
BKPSPCHN 










7. Clear the first 64 bytes (1 block) and 
store the length of the block pool area 
(2K) in it. Store the pointer to the old 
block pool chain, if any, in the first 
new block, and chain the new block 
to the header. 








Update the Block Pool Header to 
point to the second block in the 
new chain, and initialize it to format 
a new block pool chain. 







FCDB 


FCBCHAIN 






Chain together the remaining blocks 
in the new chain (64-byte block sizes), 
and zero the chain pointer in the jast block. 


10. Restore the registers. am (2 ) 


Restore the registers. 













PLH 


PLHWAREA 
WKAGETVS 








12. Release the lock on the Block 
Pool Header. 






See Diagram ED, Unlock the 
Block Pool Header. 


Restore the registers. 


Return 


Notes for Diagram EB2 


7.-10. After a successful GETVIS, the first 64 bytes of the gotten area 
are cleared to binary zeros and used as a header for a new set of 
blocks. This header is chained to the header of the last set of blocks 
allocated, and the Block Poo! Header (BKPSPCHN) is chained to 
the new header. 


The remaining space is suballocated into 64-byte blocks. These 
remaining blocks are chained together, and the first block of the 
chain is chained to the new header block and the Block Pool 
Header (BKPFSTBK). The allocation procedure is then retried. 
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BKPHD _(FCDB) 
aie 
ae 
BKPHD (FCDB) 
ee ae 
bead 


BKPHD 
BKPFSTBK 


FCDB 
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Module 
or label 


ALLBK110 


ALLBK120 


ALLBKO20 
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Diagram EC1. I/O Manager: Allocate and Find an I/O Data Field 
















CCB 
CCBLDATB 









Yes No 


4 





1/0 Data Block 
FCBALI N 
FCBOFSET [> 











Block. Is it zero? 


Yes No 


No Yes 


5. Is the block full? 
Yes No 


q 





Control Block. 


Return vector: 


Notes for Diagram EC1 


This routine performs one of three functions, depending on the value 
passed in register 1: 


Register 1 = 0: Find last-used data field in the block. 


Register 1 = 4: Get next available data field in the block to use 
for storing the |/O DASD arguments. 


Register 1 = 8: Get next available data field in the block to use 
as a temporary save area for the CCB currently being processed. 


1.-3. The address of the last !/O Data Block in the chain (currently-used 
block) is obtained. Then the type of function call is determined. 
For a “find” function, if the offset (FCBOFSET) of the control 
block is zero, the routine returns to the calling routine with register 
9 pointing to the start of the control block. 


If the offset is not zero, then steps 9, 10, and 12 are performed to 
generate the pointer to the last-used I/O data field in the block. 


4-7. Each time arguments are stored or temporarily saved in the control 
block, the allocate type code (in register 1) is stored in the control 
block (FCBALI) for the next store or save operation. (For a 
temporary save, the save area space is reused for a permanent store.) 


If the last entry of the control block was not just previously used 
as a temporary save area, a new field is allocated (if available). 

If all the fields are used, the ‘“Allocate a Control Block” routine 
(ALLBK) is called to get another 64-byte block. The new block 
(if obtained) is chained to the old block. If a new block is not 
obtained,.an error return is taken. 
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*Diagrams EF, EG 


Get the last 1/O Data Block. 


is a ‘‘find’’ to be done? 


3. Get the offset in the 1/O Data 


Was the previous call to ALLDT 
a ‘‘save space’’ request? 


6. Allocate a new I/O Data Block. 


See Diagram EB, Allocate a 


@ Nocontro! block available 


® Control block available 

























Module 

or label 
IKQIOA/ 
IKQIOC 
ALLDTO0O 

acer Return 
+4 

ALLDT010 
ALLBKOOO 


Se Return 


If the last entry of the control block was previously used as a 
temporary save area, steps 9-12 are performed to generate a pointer 
to this temporary save area (last-used area in the block) so that 

it can be reused. 
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Diagram EC2. I/O Manager: Allocate and Find an I/O Data Field 









Chain the old block to the new block, 
and update the CCB pointer to point 
to the new block. Make an entry in the 
Fix List. 






CCBLDATB 





See Diagram EN, Make a Fix List Entry, 


Return vector: 






@ Fix List entry made 


4 


8. Update the offset to point to the next 
available {/O Data Block position. 









1/0 Data Block 





9. Reset the offset pointer to the ‘currently 








Isa “find” to be done? 







4 


11. Save the allocate function type 
code. 





Set the caller's pointer to the current 
{/O Data Block position. 









Notes for Diagram EC2 


8.-12. For the I/O data field store operation, the FCDB offset is updated 
to point to the next available field (after the one to be used for 
the current request). The pointer is then backed up to the current 
field to be used, and the allocate type code is saved. 
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@ Fix List entry not made => Return 





used” or available !/O Data Block position. 


No Yes em (12) 









gam> Return 








































1/0 Data Block stay 
ALLDT020 
CCB FXLOOO 
CCBLDATB 
1/0 Data Block 
ee oe ALLDTO30 
FCBOFSET 
nae ee 
1/O Data Block 
FCBALI 
R9 ALLDTO50 
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Diagram ED1. I/O Manager: Unlock the Block Pool Header 


*Diagrams EB, El 





















BKPHDTS 


Clear the ‘‘test and set” byte of 
the Block Poo! Header ECB. 


BKPHD 


BKPHOCOM _—— 


Is the wait bit on in the ECB? 


No Yes gee Return 


$ 


3.‘ Save the registers and post the 
ECB. 








PLH 


PLHWAREA 


WKAGETVS 
BKPHD 
BKPHDECB 


















PLH 


PLHWAREA 
WKAGETVS 












4. Restore the registers. 


Return 


Notes for Diagram ED1 


This routine clears the ‘test and set” byte of the Block Pool Header 
ECB. If it finds the wait bit off, it posts the ECB to bring any 
waiting tasks out of the WAIT state. 
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Module 
or label 


IKQIOA/ 
IKQIOC 
ALLBK200 
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Diagram EE1. I/O Manager: Lock the Block Pool Header 


“Diagrams EB, E! 



















Is the Block Pool Header 
available (unlocked)? 





BKPHD 7 

as J 7 No Yes (Lock it) GI®> Return 
% 

es tes Payal 






2. Is the Block Pool Header ECB 
wait bit posted? 


5 Yes ems ) 


3. Save the registers and wait on 
the ECB (SVC 7). 


BKPHDCOM 
BKPHDECB 






PLH 


PLHWAREA 


WKAGETVS 















4, Restore the registers. 


amp) 


Turn off the wait bit in the ECB. 


amp) 










Notes for Diagram EE1 


This routine performs a ‘‘test and set’ on the Block Pool Header ECB. 
If the ECB is available, it will now be locked, and contro! returns to 
the calling routine. 

If the ECB is not available, the wait bit is tested (in case posting of the 
ECB occurred after the ‘‘test and set’’). If the wait bit is on, it is 
cleared, and the ‘test and set” is retried. 


\f the ECB is not posted, the lock routine goes into a wait state until 
the Block Pool Header is available. 
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BKPHDTS 


PLHWAREA 
WKAGETVS 


BKPHDTS 


Module 
or label 


1KQIOA/ 
IKaIOC 
AMDLKOOO 


AMDLKO20 
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Diagram EF1. I/O Manager: Build CCW 






















Module 
or label 
IKQIOA/ 
IKQIOC 
BDCCWO000 
Save the return address. 
; BDCCWO010 
Get the number of CCWs to be built. 
Are the CCWs built? 
No Yes a> Return 
] 7 
Ri 
[+ _-— 4. Get the last CCW block. Is there 
room for another CCW? 
R7 a BDCCW020 
-” 
ae j Yes mmm (©) 
Allocate a new CCW block. 
See Diagram EB, Allocate a ALLBKOOO 
Control Block. 
Return vector: 
@ No blocks available 
CEE Return 
®@® Block available 
Notes for Diagram EF 1 
2.-3. Each CCW skeleton starts with an offset (that is, a multiple of 8) 5.-8. When the current CCW block becomes full, a new CCW block is 
which indicates the number of CCWs to be built during each pass allocated, and the appropriate entry is made in the Fix List. 
through the Build CCW routine. Each skeleton is 11 bytes long. 
When the last byte at the end of the skeleton(s) is a zero value, ; : oe gts : 
control is returned to the caller. If allocation fails for the Fix List entry, the CCW block is deallocated 


NOTE: because it is not yet in the CCW chain. 


@ Search ID Equal — TIC CCWs require two CCW positions in 
the same CCW block. \f either allocation fails, a return is taken to Build Channel Program 
@ A Read Count CCW and a Read Data CCW are treated asa routine (BLDCP), and I/O is performed for the current chain of 
CCW pair, but they do not need to be in the same CCW block. CCBs in order to free contro! blocks for reuse. 
The Read Count CCW is used only when a replicated index 
search is to be done. 
@ The Seek and Set Sector CCWs are always in the same block. 
They will always be the first two CCWs in the channel program. 


4, The last CCW block in the CCW chain is tested to see if there is 
sufficient room for the number of CCWs to be built during the 
current pass. The offset of the starting CCW skeleton indicates 
the amount of CCW space required. The maximum offset for the 
CCW block is 56 bytes (FCBCMAX). 


The last entry in the CCW block is reserved for a TIC to the next 
CCW string in the next block, if more than 7 CCWs (6 when a CCW 
pair must be built as the last two entries and reside in the same 
CCW block) are to be built in one channel program. 
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Diagram EF2. I/O Manager: Build CCW 













the last CCW in the current CCW block, 
chain the current CCW block to the 
new CCW block, and save the pointer 
to the new CCW block (in the CCB). 


om 4) 
















block. 


EP Return 





Notes for Diagram EF2 


7. When anew CCW block is obtained, it is chained to the current block, 
and a TIC CCW is placed after the last CCW in the current block. 


For a single CCW skeleton currently being processed, the TIC 
overlays the chain pointer to the new CCW block. 


tf a multiple CCW skeleton (Search 1D Equal — TIC) is being processed 
(and the two CCWs must reside in the same CCW block), the TIC 
follows the last CCW in the block, but it does not overlay the chain 
pointer. There will be less than 7 CCWs in the block (excluding the 
TIC CCW). The SIDE CCW can never begin in the seventh entry 
because the channel will skip the eighth entry when the search is 
satisfied. 
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Module 
6. Make an entry in the Fix List for or label 
the new CCW block. 
BOCCWO30 
See Diagram EN, Make a Fix List 
entry. FXLOOO 
Return vector: 
@ Fix List entry not made 
@ Fix List entry made 
CCW (current) 
7. Put a TIC to the new CCW block after BDCCW040 








Deallocate the CCW block. BOCCW 
CCBLCCWB on 
See Diagram E1!, Deallocate a control ae ALLBK300 
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Diagram EF3. I/O Manager: Build CCW 










followed by a NOP CCW. 





Are read operations being 
processed? 


Yes 


$ 


11. Is this the first CCW for the 
read CCW chain? 


Yes No. (fixed block) * 


| No (CKD)* 


12. Place the address of this CCW 
in the CCB. 





No 








CCBROCCW 


CCBWTCCW 13. Is this the first CCW for the 


write CCW chain? 


Yes No 


9 


14, Place the address of this CCW 
in the CCB. 









CCW in the “last write’ CCW 
field in the CCB. 


Fixed block 
devices* 


*IKQIOA contains all CKD I/O Manager code, and 
{KQIOC contains all FBA |/O Manager code. 
Consequently, CKD vs. FBA decisions do not appear 
in the actual code. The “decision” is shown in the 
HIPO for convenience in documentation only. 






Notes for Diagram EF3 


9. The CCW skeleton is moved to the CCW area; a NOP op code 
follows in the next CCW position. 
For fixed block devices, a CCW chain consisting of only Write 
CCWs must be followed by a NOP if the Locate parameters 
specify that a write check is to be performed. 


10.-15. The first CCW for a Read or Write CCW string is stored in the 
CCB. The last CCW in the Write CCW string is also stored in the 
CCB. These CCWs are used by the I/O Error Handler (IKQIOB) 
when handling errors for a “piggy-back’’ CCW chain. They are 
used to determine where the CCW chain is to be split for retry 
of the CCW chain. 

The ‘‘piggy-back” indicator (CCBUERR) suppresses error retry 
by the system. The I/O Error Handler turns this switch off when 
it performs retry. The last Write CCW has the command chaining 
switch turned off when the write portion of the CCW string is 
retried. When the Read CCW string is retried, a TIC CCW to it 

is inserted after the Seek CCW (count-key-data devices) or 

Define Extent CCW (fixed block devices) to point to the start of 
the Read CCW string. 
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Move the CCW to the CCW block, 
















b} 3 


; 


Place the address of this same 


CKD devices” 


CCW 






ih CCBRDCCW 


CCBWTCCW 
CCBLWCCW 










CCWAREA 


Module 
or label 


BOCCW100 


BDCCW110 


BDCCW120 
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Diagram EF4. I/O Manager: Build CCW 





sccw 


CWSFLAG _— 


Fixed block devices: 





16. 








Yes No 





AMDSB 


AMDCINV 















17. 


count field. 





1/0 Data Block 












|OABLKCT 












LPMB 


LPMBPBCI 






















BCB 


BUFBKST (R/W) 


\ODBKSTI ana 
BUFCBAD 
BUF (R/W) STBB 


IODBBBB 


be processed. 





Notes for Diagram EF4 


16.-19. 


If the CWSBFADC bit is on in the CWSFLAG field of the 
skeleton CCW, it indicates a Write/Read CCW skeleton. The 
CCW count field is initialized to the Ci length, and the Locate 
arguments are obtained from the |/O Data Block for this CCW 
(most recent entry in block). 


The block count field in the Locate arguments is updated by the 
total number of physical blocks required for a Cl. The block 
address in the buffer is also updated by this same number. This 
is done to compare it to the block address of any succeeding 
blocks to determine if a Locate is needed for the next Read or 
Write CCW. 


The number of Cls to be processed for the current buffer is 
decremented by one; this counter controls looping through BLDCP. 


For Define Extent and Locate CCWs, the CWSFLAG byte has 
the CWSARGAD bit on. This means the I/O area to be used in 
the CCW is in the |/O Data Block (FCDB). 


For Read and Write CCWs, the CWSFLAG byte has the CWSBFADC 
bit on. This means the !/O area to be used is the buffer currently 
being processed. 





Chained Read/Write CCWs must have the data chaining flag on 
when they are immediately followed by other Read/Write CCWs. 
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Is this a “build Write/Read 
CCW" function? 


Move the Cl size to the CCW 


18. Find the last Locate 
parameters saved in the I/O 
Data Block for this CCW chain. 


See Diagram EC, Allocate and 
find an |/O data field. 









emmm>(27) 











19. Update the block count for the 
locate parameters, the block 
address in the buffer, and subtract 
1 from the number of Cls to 




















CCWCNT 

















1/0 Data Block 


lOABLKCT 









BCB 





BUFBKST (R/W) 


\ODBKSTI 


|ODBBBB 
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Module 
or label 


IKQIOC 
BDCCW200 


ALLDTOOO 


BOCcCcW210 


2.235 


Diagram EFS. I/O Manager: Build CCW 






BCB 











Is this a buffer for a 
replicated index read? 


4 


PLHWAREA 
WKAIOMSW 





processed? 


AMDSB 


AMDATTR1 ee 


3 






Notes for Diagram EFS 


20,-21. If this is a Read CCW for a data record or non-replicated index 
(or sequence set) record, the normal Read CCW is used. The 
Locate argument is updated to indicate a normal read operation. 


22.-24. If write operations are being processed and a write-check is 
required, then the write-check bit (LOAWCK) is turned on in 
the Locate argument op code. 
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Fixed block devices (continued): 


No Yes emee>(25) 


21. Move the Read/Write locate op 
code into the Locate parameters. 


Are write operations being 


Yes No 


23. Are write checks to be performed? 
Yes No 


Set the write check bit on in the 
locate op code in the locate parameters. 


1/O Data Block 


IOAOPCOD 
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Diagram EF6. I/O Manager: Build CCW 









Fixed block devices (continued): 


Move the repliéated read Locate op 
code and the replication count into the 
locate parameters. 


Get the address of the buffer 


(for use in step 34). 


27. Is a Define Extent CCW or 
a Locate CCW being built? 






sScCCW 


CWSFLAG prea: 


Yes No 


4 


28. Find space for the Define 
Extent/Locate parameters. 


i 


See Diagram EC, Allocate and 
find an I/O data field. 


Return vector: 





@ Allocate not successful 


Fe coe Sd Return 


@ Allocate successful 


Notes for Diagram EF6 


25. When a replicated index (or sequence set) read is to be done, 
the Locate arguments are updated to indicate a replicated read, 
and the replication count field is set to the total number of 
physical blocks actually used for the imbedded index or 
sequence set. (Any blocks wasted after the sequence set are 
not included in this value.) 


27.-31. Whenever a Define Extent CCW or a Locate CCW is built 
(CWSARGAD), an 8-byte field in the [/O Data Block is allocated 
for its DASD arguments, and the CCBRPS bit is turned on to 
indicate that building of the channel program has started. 
(CCBRPS was initially set to 0 to indicate that a new channel 
program is to be started.) 


This 8-byte field is sufficient for a Locate CCW, but a Define 
Extent CCW requires 16 bytes, so an additional 8 bytes must be 
allocated. Because there is only one Define Extent CCW ina 
channel program, and it is always the first CCW, its arguments 
are always the first 16 bytes of the |/O Data Block (assuming 
no allocation error occurs). Register 9 contains the address of 
the 8-byte field just allocated, so it must be backed up to point 
to the beginning of the 16-byte field. 
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1/0 Data Block 


1OAOPCOD 


IOAREPCT 


R9 
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Module 
or label 


BOCCW220 


BDCCW230 


BDCCW300 


BDCCW310 


ALLDTO00 
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Diagram EF7. I/O Manager: Build CCW 










CCB 


Fixed block devices (continued): 
es ae ot | 
= 
a ot eran kal 


Is a Define Extent CCW required? 
(Is it the first CCW in the chain?) 


:* 


30. Turnon the “first CCW in 
chain’’ switch. 















CCBUFLGS 

















31. Find another 8 bytes 
(contiguous) in the FCDB for 
Define Extent. 





See Diagram EC, Allocate and 
find an |/O data field. 


Return vector: 


@ Allocate not successful 


GCE Return 





@ Allocate successful 


Back up pointer to start of 
Define Extent parameter field 
in FCDB I/O Data Block, and 
build Define Extent parameters. 










1/O Data Block 






1OASTBB 
IOASTDS 







{ODLPMB 
LPMTLBCA 


Notes for Diagram EF7 


32. This step builds the Define Extent arguments. It sets the 1/O mask 
field to 0 (default value), initializes the physical starting block of the 
CA on the device, and sets the block range to the total number of 
physical blocks in the CA (not including any wasted blocks at the 
end of the CA). The start of the block range is set to 0. 
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Module 
or label 


BOCCW320 


ALLDT000 


BDCCW330 
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Diagram EF8. I/O Manager: Build CCW 











Module 
BCB or label 
Fixed block devices (continued): 1/0 Data Block 
sarin eae ieee] 
1ODBBBB _—————>|_ 33. _ Initialize the Locate parameters. BDCCW400 
ea ees 
BOCCWS500 
ccw 
34. Move the address of the !/O | ccwoP 
Data Block/buffer into the _---- | 
CCW that was just built. 
sccw Count-key-data devices: 
IKQIOA 
BDCCW200 


CWSFLAG -—— 36. 


Yes No 


G8) 


Notes for Diagram EF8 


33. This step initializes the fields for the Locate parameters. The 
CCW type op code, the block count, and the replication count 
fields are initialized to zeros. They will be set during Write/Read 
CCW processing. The physical block number of the first block 
to be processed by this Locate is then placed in the argument field. 


34. The I/O argument address obtained in step 26 (for the buffer) or 
steps 28-32 from the |/O Data Block allocation (in R9) is 
placed in the CCW argument field, and the offset in the CCW 
block is updated to point to the next available CCW position. 


35.-64. CWSFLAG settings in the CCW skeletons for CKD devices are 


listed below. See the CCW skeleton DSECT description in Section 
5: Data Areas for explanation of the bit settings, 


CCW Type Flag Names Hex 
Seek CWSIVLR,CWSARGAD,CWSNOOPT 51 
Search 1D Equal CWSARGAD 10 
Set Sector CWSFPS (in CWSFLAGC) 80 
TIC CWSASTER 08 
Write Count CWSARGAD,CWSDECR,CWSNOOPT 13 
Write Data 1* CWSBFADC,CWSINCR 24 
Write Data 2* CWSBFADC,CWSINCR,CWSIVLR 64 
Read Count CWSPLHAD 80 
Read Data CWSBFADC,CWSINCR 24 
Read Back Check** CWSBFADC,CWSINCR 24 
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Is this a Format Write (WCKD) 
CCW (DECR function)? 





*Write Data 1 is the second part of the Format Write (CKD) CCW 
set and follows the Write Count CCW. The Write Count CCW 
is data chained to the Write Data CCW. 


Write Data 2 is the CCW skeleton used for updating an existing 
DASD record. 


**The Read Back Check CCW is a Read Data CCW with the SKIP 
bit on. 


NOTE: 


@ The Search 1D Equal — TIC CCW skeletons are processed as a 
pair of CCWs and must be in the same CCW block. 


@ The Read Count and Read Data CCW skeletons are processed 
as a pair for replicated reads, but they need not be in the same 
CCW block. The Read Count CCW only reads the CCHH field. 


@ The Write Count and Write Data CCW skeletons are processed 
as a pair for format write operations, but they need not be in 
the same CCW block. 

@ The Set Sector CCW skeleton is preceded by a Seek CCW. They 
are processed as a pair and are always in the same CCW block 
because they are the first two CCWs of any new channel program 
for RPS devices. 
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Diagram EF9. I/O Manager: Build CCW 


Q 


CW 


CCBLCCWB eS 


CCBCCW 


CW 


(2) 















Count-key-data devices (continued): 





ts there a CCW in the last CCW 
block in the chain? 


No Yes 
4 


Find the last CCW block in the 
chain containing the last CCW built. 





Is the last CCW in the chain a 


TIC CCW? 


Find the search argument in the 
FCDB for its associated Search 
ID Equal CCW. 






Yes No 





See Diagram EC, Allocate and 


find an 1/O data field. HO Dera Block 






Set the R of the CCHHR to 
point to the previous record 


Module 
or label 


BOCCW210 


BDCCW230 


ALLDTO00 


BDCCW240 






for a format write. 


Notes for Diagram EF9 


35.-40. When the Write Count of a Format Write CCW sequence is being 
j processed, the previous CCW is checked for a TIC op code. If 
the Write Count is the first CCW in a new CCW block, the CCW 
block chain is searched until the block preceding the current 
block is found, and the last CCW in the preceding block is checked 
for a TIC op code. 


If the previous CCW is a TIC CCW, the Search ID Equal argument 
in the 1/O Data Block is set to search on the ID field of the 
record preceding the current record that is to be written. 


If the previous CCW is not a TIC CCW, then it has already been 


set up to write the record preceding the record to be written, 
and orientation has been established. 
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Diagram EF10. I/O Manager: Build CCW 


SCCW 
-- 
mseaeaeaine 
\ 
\ 


BUF (R/W) LPMB 
tODLPMB 
BUFBKST (R/W) 
lODBKSTI 


BUFCBAD 


LPMBLKSZ 


LPMBPBCI 





Notes for Diagram EF10 
41,-42. 


Count-key-data devices (continued): 





Is this a Seek or Write-Data 
(non-format write) CCW (IVLR 


function)? 


Invalidate the R of the CCHHR. 


Yes No 


Is this a Read, Write, or Write-Check 
CCW, or is it the Write-Data portion 
of a Format Write (WCK) CCW (BFADC 


function)? 


Set the CCW count field and the 
correct buffer address for the data 
field of this CCW, and decrement 
the “number of physical blocks 
remaining” indicator for the next 
pass (if any). 


Yes No 


If the current CCW is a Seek CCW or a Write Data CCW, the R byte 


(WKAR) in the PLHWAREA is invalidated for the next Write/Read 
CCW. This forces a Search 1D Equal — TIC CCW sequence to be 
built. (Write Data CCWs must be oriented by a Search CCW.) 


43.-44. \f the CCW being processed is a Write/Read CCW (or 


a Write Data 


from the Write CKD), then the CCW count field is initialized 
with the physical blocksize, and the position in the buffer to be 
used as |/O argument address (BUFCNOI!) is determined and 
saved in register 9. The ‘‘number of physical blocks to write’ 
(BUFBKSTW) indicator is decremented by one. (This value is 
normally one except when writing replicated index records or 


when doing preformat writes.) 
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Module 
or label 
BOCCW250 
PLH 
PLHWAREA 
BDCCW300 
IODBKSTI 
BUFCNOI 
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Diagram EF11. I/O Manager: Build CCW 


Module 


Count-key-data devices (continued): or label 










Is this a Set Sector CCW (RPS 
function)? 


No Yes 


BOCCW400 











46. Is this a Seek, Search ID Equal, 
or Write Count (of aCKD) CCW 
(ARGAD function)? 







Yes No 







5 


47, Is this a Seek or Write Count 
(of a CKD) CCW (NO OPT 
function)? 







No Yes 







u 


48. Find the search argument in 
the 1/O Data Block for the 
previous Seek or Search 1D 
Equal CCW in the current 
CCW chain. 


BDCCW410 









See Diagram EC, Allocate 
and find an I/O data field. 


sccw ALLDTOOO 


CWSFLAGC —— 






Is this a Set Sector CCW 


(RPS function)? 






BDCCW420 






Notes for Diagram EF11 


45.-53. If a Set Sector or a Search 1D Equal CCW is being processed, the 


2.242 


last |/O Data Block arguments are located. For a Set Sector 
CCW, the device type code is placed in the |/O Data Block 
(IOASEC) for the SECTVAL (SVC 75) function. 


For a Search 1D Equal CCW following a Seek (Set Sector) CCW, 


the R field in the |/O Data Block is updated, when the Search 
1D Equal CCW is for the same track as the Seek CCW. 
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Diagram EF12. I/O Manager: Build CCW 












Count-key-data devices (continued): 1/0 Data Block 











LPMBDTF 


BUF (R/W) LPMB 


tODLPMB 













| 50. Get the sector value. 


Is the track number for the 
current CCW the same as for 
the previous CCW? 


ry No 


1/O Data Block 






Is the R of the CCHHR valid? 


j Yes 


53. Update the R of the CCHHR to 
the R of the current CCW. 






t/O Data Block 
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Module 
or label 


BDCCW430 
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Diagram EF13. I/O Manager: Build CCW 




































Count-key-data devices (continued): 1/0 Data Block e oes 
Allocate space in the 1/O Data TTOASEEK.__| Bpccw440 
Block for the Seek, Search ID 
Equal, or WCKD arguments. 
See Diagram EC, Allocate and }1OASEC ALLDTO0O 
find an 1/O data field. ie 
Return vector: 
@ Space not allocated 
=p Return 
e 
an Space allocated 
PLHWAREA $ 
WKASEEK > 55. Set the MBBCCHHRKDD in the BDCCW450 
new |/O data field of the 1/O 
LPMB Data Block. 
Rn LPM 
jODLPMB ica Is this a TIC (*-8) CCW BDCCWS500 










(ASTER function)? 
ee 
Roe 
, 
aoe § 
R11 RQ 
aa —-.. Get the address in the CCW <a 


block for the previous CCW 
(Search ID Equal). 


Notes for Diagram EF13 


54.-55. If aSeek, Write Count, or a Search ID Equal CCW (which does not 
follow a Seek CCW to the same track) is being processed, a new 
1/O argument field is allocated in the |/O Data Block. The 
MBBCCHHRKDD field (K=0) is initialized with the DASD address 
for the CCW and the physical blocksize. 


56.-57. If a TIC CCW is being processed (Search 1D Equal — TIC sequence), 
RQ is set to the address of the TIC CCW. !t will be adjusted to 
point to the Search 1D Equal CCW (see description of CWSASTER 
bit in CCW Skeleton). 


2.244 + VSE/VSAM VSAM Logic, Volume 2 Licensed Material —— Property of IBM 


Diagram EF14. I/O Manager: Build CCW 















sccw Count-key-data devices (continued): 
Hees Sod 

_— Is this a Read Count CCW for 
ie ee Yl replicated index read (PLHAD 


function)? 





59. Set the data address to read 
the count field into the BCB. 


Store the address of the 1/O area. 





sccw 
-_-— Is this a Read, Write, Write-Check, 
Nae th geal or Write Data (of aWCKD) CCW 





(INCR function)? 


5 No 















BUF (R/W) SEEK 










molest Update the DASD addres 
ate the s 
BUF (R/W) LPMB (CCHHR) in the BCB. 
IODLPMB 
area See Diagram EP, Update the 
DASD Address. 
Notes for Diagram EF 14 
58.-59. If a Read Count CCW is being processed (for replicated index or 
sequence set), RQ is initialized to point to the BCB (BUF VCCHH) 
so that the count field can be read into the BCB. 
60. The t/O argument address obtained in step 44 (for the buffer) or 


steps 54-59 from the I/O Data Block allocation (in R9) is placed 
in the CCW argument field. 


62.-63. The Update DASD Address routine increments the CCHHR in the 


BCB to point to the next sequential record, and the R byte 
(WKAR) in the PLHWAREA field is incremented by one. 


Licensed Material —- Property of IBM 


ry No 




















CCWARG 
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Module 
or label 


BOCCW600 


BDCCW610 


BDCCW700 


INCROOO 
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Diagram EF15. I/O Manager: Build CCW 










Count-key-data devices (continued): 


PLHWAREA 







63. UpdatetheRofthe CCHHRin ===> ----- 


the PLH. 








ccB 


CCBLCCWB 


CCW 
FCBOFSET 















Both CKD and FBA devices: ccw 


FCBOFSET 














64. Get the CCW block and update the 
offset to point to the next available 
CCW position. Store the offset value 
into the count field of the NOP CCW, 
and point to the next skeleton CCW. 










Notes for Diagram EF 15 


64. The offset in the CCW biock is used as the count field for a NOP CCW 
at the end of the CCW chain. This is done so that the 1/O Error 
Handler (IKQIOB) can process both CKD and fixed block devices. 


The pointer to the current CCW skeleton is incremented by 11 
to point to the next CCW skeleton (if any) that may be associated 
with the current CCW skeleton. 


Module 
or label 


BOCCW800/ 
BDCCW510 
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Diagram EG1. I/O Manager: Build Channel Program 


















































Module 
or label 
IKQIOA/ 
IKaQIOC 
Save return address. BLDCPOOO 
PLHWAREA 
Fixed block devices * emmmp(3 ) WKABDC14 
Count-key-data devices * WS ASSES 
BCcB Initialize current DASD starting BLDCPO10 
pe eee tll address to X'FF’. 
BUFBKST (R/W) 3 4 h d b £CCW 
aR aa es i ave the required number o $ 
1O08KSTI been built (based on the number 
ee of Cla) 
Return 
BHD No Yes ed 
Does a CCB exist for this 
Ree eed channel program? 
Yes No(CKD)*  aamamipp(i2) 
ccB 
cee No (fixed block) * Sammmm>(22) 
Has the CCB been formatted? BLDCPO20 
Saree No Yes(CKD)* amma) 


BCB 


BUFCUR (RW) 


Cl U 


tODCURU 


Yes (fixed block) "aummmap>(21) 


Can this CCB be used for the 
current request? (Is this 
request for the same device?) 


Yes No(CKD)* mee (11) 
No (fixed block) * mmmmmi> (21) 


*IKQIOA contains all CKD 1/O Manager code, and 
IKQIOC contains ali FBA 1/O Manager code. 
Consequently, CKD vs. FBA decisions do not 
appear in the actual code. The “decision” is 
shown in the HIPO for convenience in 
documentation only. 


Notes for Diagram EG1 


3. The return to the user is not taken the first time through this 
routine. 


The value referenced by IODBKSTI is either 1 (as set by RBA 
convert) or the value computed in step 31 of Diagram EA: |/0 
Manager Mainline. This value controls how many CCWs are built 
for the buffer being processed during this pass through BLDCP. 


4. The first time this routine is called for a given set of buffers, no 
CCBs, CCWs, etc. will have been built. 
On succeeding passes, at least one channel program will have been 
started, and processing continues at BLDCP020. 


5. If a CCB, CCW, etc. group has been completed and I/O started for 
some of the buffers in the set being processed (that is, for one CA), 
then bit CCBERROK in CCBCOM1 will be set on, and processing 
continues at BLDCPO80. 


6. A test is made to see if the buffer being processed is associated with 
the non-formatted CCB tested in step 5. 
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Diagram EG2. I/O Manager: Build Channel Program 
























find an |/O data field. 


Count-key-data devices” 


For count-key-data devices: 





1/0 Data Block the block pool used? 











so a 
IOADATA © NS Yes 
1OABB ~ 
a ik 
ls the CA address for this 
CCW in the same CA for 
BCB ZY this CCB? 
Yes No 


BUF (RW) SEEK 


|1ODBB 





1/O Data Block : 
1OADATA \ i= 


Notes for Diagram EG2 


7. If the buffer being processed is associated with the non-formatted 
CCB tested in step 5, a search is made of the |/O Data Block 
(FCDB) for the last arguments stored in the block (during step 
62 or 63). These arguments are: the number of allocated control 
blocks used, and the CA DASD address. 


8. If the number of blocks allocated for the CCB exceeds 31, the 
channel program is started and waited for. 


9.-10. A test is made to see if the buffer being processed is for the CA 
associated with the CCB (tested in step 5). If it is for that CCB, 
the CA address and the number of allocated blocks used are saved 
in the PLH for use in building the CCW(s) for this buffer. 
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Find the last group of 1/O Data 
Block address arguments (in the 
1/O Data Block) for this CCB. 


See Diagram EC, Allocate and 


Fixed block devices* 


Are all the control blocks in 


me ') 


10. Restore the current CA CKD 
address and number of allo- 


Module 
or label 


ALLOTOOO 


“IKQItOA contains all CKD 1/O Manager code, and 
{KQIOC contains all FBA I/O Manager code. 
Consequently, CKD vs. FBA decisions do not 
appear in the actual code. The ‘‘decision” is 
shown in the HIPO for convenience in 
documentation only. 


BLOCPO30 


PLH 













_PLHWAREA 
WKASEEK 
WKABLKS 
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CCB 


CCBNCCB 






Count-key-data devices (continued): 


11, Is there another CCB in the chain? 


No Yes emmm>(5) 
| 


Is there a CCB assigned to this BCB? 


No Yes 


13. Set the number of allocated blocks 
used to zero (in the PLH), save the 
current CA BBCC address, and get 










BCB 
BUFVCCB 


BUF (R/W) BB 
lODBB 

















anew CCB. 








control block. 


Return vector: 








®@ Control block available 


Notes for Diagram EG3 


11. If the CA address of the buffer being processed did not match the 
CA of the CCB (tested in step 5), the next CCB (if any) in the chain 
is checked to determine if it can be used for the buffer. 


12. This step tests whether the buffer, for which no CCB can be found 
in the CCB chain, has a CCB assigned to it. The buffer has its CCB 
address stored in it (BUFVCCB) whenever a “piggy-back” 1/O operation 
is performed. (A ‘‘piggy-back” operation occurs when one buffer is 
used for both writing and reading in the same channel program. The 
contents of the buffer are first written out, and then data is read into 
it during the same |/O operation.) 


If the buffer has a CCB address stored in it, then the read address is 
in a different CA then the write address, and the read is not handled 
in the same EXCP/WAIT operation. 


13. If there is no CCB associated with the buffer being processed, the PLH 


is reinitialized with the CA address of this buffer, and the ‘‘number 
of allocated blocks in use” counter is set to zero. 


The allocate block routine is called to get a 64-byte block to be used 
as a CCB for the buffer. If no block is available, an EXCP and WAIT 
are issued for the current set of channel programs to free the control 
blocks currently in use. 
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See Diagram EB, Allocate a 







@ No control block available 





Diagram EG3. I/O Manager: Build Channel Program 


PLHWAREA 


WKABB 
WKABLKS 
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Module 
or label 


BLDCP040 


BLOCP100 


ALLBKOOO 
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Diagram EG4. I/O Manager: Build Channel Program 

















For fixed block devices: 


in the block pool used? 
No Yes 


u 


Yes No 


No Yes 


| 






R9 

ae 18. Reset the 1/O Data Block offset to 
the entry preceding the temporary 

RE save area. 


Notes for Diagram EG4 


14. 
15.-16. 
17. 


18. 


2.250 


See note for step 8. 
See note for steps 9-10. 


After the data in the temporary save area in the |/O Data Block 
is obtained, the save area is available for reuse, and the offset is 
repositioned to reflect the available space. 


This must be done because if the next ‘‘allocate” function is a 
“find,” the correct arguments must be obtained (not the data in 
the temporary save area). When the temporary save area is the 
first entry in the 1/O Data Block, then the data block must be 
dequeued and the control blocks and offset restored to indicate 
the last entry in the previous block. 


This step backs up the offset in the |1/O Data Block (because the 
save area is not the first entry) and clears the indicator (in 
FCBALI) so it no longer indicates that the previous call to 
ALLDT was for a temporary save area. 


VSE/VSAM VSAM Logic, Volume 2 


Are all the control blocks 
wm (67) 


Is the CA block address for this 
CCW in the same CA for this CCB? 


eum (2') 


Restore current CA block address 
and number of allocated blocks used. 


17. Is the temporary save area the 
first entry in the 1/O Data Block? 


|__| 


Module 
or label 


IKQIOC 
BLDCP030 


PLHWAREA 





WKASTBB 








1/O Data Block 


FCBOFSET 
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Diagram EGS. I/O Manager: Build Channel Program 







Fixed block devices (continued): 

















Get the chain pointer to the 
previous |/O Data Block, insert 
it into the CCB chain pointer, 
and clear the chain pointer in 
the temporary save area. 





Reset (decrement) the ‘‘control 
blocks used’’ counter to its 
previous value. 





Deallocate the temporary 
save area. 





See Diagram El, Deallocate 


a control block. 


{s there another CCB in the chain? 






CCB 












No Yes 


| 


22. !s there a CCB assigned to this 
BCB? 


Yes 

















No 


Notes for Diagram EG5 
19.-20. The block allocated for the temporary save area points to the 
previous block used. Therefore the pointer is saved in the CCB, 


and the pointer field is cleared. The temporary save area block 
is returned to the list of available control blocks. 


21, See note for step 11. 
22. See note for step 12. 
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a2 






CB 


CCBLDATB 


\/O Data Block 


FCBCHAIN 


PLH 


PLHWAREA 


WKABLKS 






Module 
or label 


BLDCP040 


ALLBK300 


BLDCPO5O 


BLDCP100 
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Diagram EG6. I/O Manager: Build Channel Program 





























Module 
Fixed block devices (continued): or label 
Set the number of allocated blocks 
used to zero (in the PLH), save the PLHWAREA _ 
current CA block address, and get WKABLKS 
eres ais WKASTBE 
See Diagram EB, Allocate a ALLBKOOO 


control block. 


Return vector: 






@ No control block available 


® Control biock available 







PLH 
PLHWAREA 


WKASVCCB 












BHO 
BHDCCBCH 

















Search CCB chain, add new CCB 
to the end of the chain, and save 
address of next-to-last CCB (in PLH). 


CCB CCB 


ceances VY] 


















BLDCP110 
CCB 
Place the device symbolic unit in ae 
jODCURU the new CCB, and get a fix list CCBSYMU 
— Eee 
See Diagram EB, Allocate a ALLBKOOO 
control block. 


Return vector: 





®@ No control block available 


@ Control biock available 


Notes for Diagram EG6 
23. See note for step 13. 


24.-25. If a block is allocated, it is added to the end of the CCB chain, 
the symbolic unit field is initialized, and the address of the CCB 
that points to the new block (or its BHD) is saved in the PLH. 


In step 25, a Fix List is not obtained if execution is on a S/370. 


NOTE: The address of the CCB that points to the new CCB is 
saved for the purpose of backing out of the chain whenever a Fix 
List, CCW block, or 1/O Data Block cannot be initially allocated. 
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Diagram EG7. I/O Manager: Build Channel Program 


Save the address of the Fix List 
(in the CCB), and set the Fix 
List end-of-chain indicator. 


Get a new CCW block. 


See Diagram EB, Allocate a 
control block. 


Return vector: 


@ No contro! block available 


em (65) 


® Control block available 


Save the addresses of the last 
CCW block and the beginning 

of the first CCW slot in the CCB. 
Put an entry in the Fix List 

for the CCW block. 


See Diagram EN, Make a Fix 
List entry. 


Notes for Diagram EG7 


26.-30. A Fix List is allocated for the new CCB and initialized to 
indicate that it is the last Fix List in a Fix List chain. Next, a 
CCW and an t/O Data Block are allocated, and entries are made 
for them in the Fix List. Pointers to the Fix List, CCW, and 
1/O Data Block are stored in the CCB. 
If a Fix List cannot be allocated, !/O is performed to free the 
currently allocated control blocks for reuse. 
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CCB 


CCBHFXL 


FXLNFEXL 


CCBLCCWB 
CCBCCW 


Xx 
CCB 
Xx 


FXL 


FXLSA 


FXLEA 


FXLCP 








Module 
or labet 


BLDCP130 


BLDCP140 


ALLBKOO0O 


BLDCP150 


FXLOOO 
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Diagram EG8. I/O Manager: Build Channel Program 


BCB 


BUFFLAG1 


Notes for Diagram EG8 
















Allocate an 1/O Data Block 
for the |/O DASD address 
arguments. 


See Diagram EB, Allocate a 
control block. 


Return vector: 


® No control block available 


® Control block available 


4 


30. Save the address of the !/O 
Data Block, and make an entry 
for it in the Fix List. 


See Diagram EN, Make a Fix 
List entry. 












Is the buffer to be used for a 
read operation? 


Yes No(CKD)* Sam>(44) 
No (fixed block) *Sammmp>G6) 


Is the buffer to be used for a 
write operation? 


@)@) 





documentation only. 
Yes No (CKD)* 
No (fixed block)* 


3 


31.-32. These steps determine if the buffer is to be used for both a 
write and read t/O operation (‘‘piggy-back” 1/O). 
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Module 
or label 


BLDCP160 


ALLBKOOO 


BLDCP170 


FXLOOO 


BLDCP200 


*{KQIOA contains all CKD I/O Manager code, and 
IKQIOC contains all FBA 1/O Manager code. 
Consequently, CKD vs. FBA decisions do not 
appear in the actual code. The “‘decision”’ is 
shown in the HIPO for convenience in 
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*1KQIOA contains all CKD I/O Manager code, and 
IKQIOC contains all FBA 1/O Manager code. 
Consequently, CKD vs. FBA decisions do not 
appear in the actual code. The “decision” is 
shown in the HIPO for convenience in 
documentation only, 


Notes 


33.-34. 


35. 


36.-37. 


Diagram EG9. I/O Manager: Build Channel Program 











| BuFvccB [> 33. Is there a CCB assigned to the 
buffer? 


No Yes 


4 


34, Assign the current CCB to the 


Count-key-data devices* 





Fixed block devices* 


35. Is the CCB in the BCB (assigned 
to the buffer) the same as the 
current CCB? 


Yes (fixed block)” 
Yes (CKD)* 


No 


















Fixed block devices: 


36. Has creation of a CCW string 
been started for this CCB? 











CCBUFLGS 






Yes 





No 





for Diagram EG9 


A CCB is assigned to the buffer (if one is not already assigned), 
and the bit CCBUERR is set to indicate that this buffer can be 
used for a “‘piggy-back”’ operation. This occurs during the write 
pass for building the channel program. 


\f a CCB for a write is already assigned to the buffer, it is 
compared to the CCB (for a read) currently being processed for 
this buffer. If they do not match, it means that the write and 
read do not apply to the same CA (or cylinder). Therefore the 
buffer cannot be used for both writing and reading in the same 
CCW chain (‘‘piggy-back”’ 1/0). 1/0 is executed for all writes 
and any existing reads in the current CCB chain. 


NOTE: This condition can occur only if the BCB has previously 
been processed for a write operation and is to be used for a read 
operation also. For CKD devices, this occurs on a cylinder 
boundary because the DASD file protect feature inhibits cylinder- 
switching seek operations in the middle of a channel program. 


The first time a CCW string is started for a CCB, a Define Extent 
CCW must be built. The CCBRPS bit in CCBUFLGS indicates 
the beginning of a new CCW string. 

A Locate CCW is built after the Define Extent CCW. If the 
Define Extent CCW was not built (due to lack of control 
blocks), the current chain of CCBs will be EXCPed (or started 
for |1/O) to free any allocated control blocks for reuse. 
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: 


buffer, and indicate a ‘‘piggy-back”’ 
(read/write) request in the CCB. 








3 










3s 










BCB 


BUFVCCB 


CCB 
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Module 
or label 


BLDCP210 


IKQIOC 
BLOCP300 
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Diagram EG10. I/O Manager: Build Channel Program 











sccw 


SCCWDEX 


Fixed block devices (continued): 












Point to the Define Extent 
CCW Skeleton, and build a 
Define Extent CCW. 












See Diagram EF, Build CCW. 
Return vector: 
@ CCW not built 
@ CCW built 


4 


BUF (R/W) BBBB 


\ODBBBB 


38. Find the last group of I/O 
block address arguments saved 
for this CCB (in 1/O Data Block). 





See Diagram EC, Allocate and 
find an I/O data field. 





Is this Cl contiguous to the 
previous Cl? 





(OABBBB 


Module 
or label 


BLDCP310 


BOCCWOO00 


BLOCP320 


ALLDTOOO 


BLDCP330 











lOABLKCT 







J 


PLH 


PLHWAREA 


WKAIOMSW 





Notes for Diagram EG10 


38.-41. During Write/Read CCW processing for fixed block devices, the 
last set of Locate arguments for this CCW chain are found to 
determine if the new Write/Read CCW can be added to the 
end of the current CCW string, or whether a new Locate CCW 
must precede the Write/Read CCW. 


A Locate CCW is required if Write CCWs are being processed, 
and if the Cl for the current buffer does not physically foliow 
the Cl associated with the last Write CCW in the chain. 


If a Read CCW is being processed, a Locate CCW is required 
when the Cl is not contiguous to the Cl of the previous Read 
CCW, or if the previous CCW was a Write CCW (even when the 
Cts are contiguous). 


2.256 VSE/VSAM VSAM Logic, Volume 2 


Yes No 


I 


40. Are reads being processed? 


Yes No 


| 
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Diagram EG11. I/O Manager: Build Channel Program 






1/0 Data Block Fixed block devices (continued): 


lOAOPCOD —— 








! 





in the previous CCW. 


sccw 
SCCWLOC 


and build a locate CCW. 











Return vector: 


® Locate CCW built 








Notes for Diagram EG11 


42. When a Locate CCW follows a Write/Read CCW, the data chaining 
switch is turned off in the Write/Read CCW to prevent an I/O error. 


43. This step builds the Locate CCW. If the Locate CCW is not built 
(due to lack of control blocks), the current chain of CCBs is EXCPed 
(or started for |/O) to free the current blocks for reuse. 
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Does the last Locate parameter 
field contain a read operation code? 


No Yes 


42. Locate the previous CCW, and 
turn off the data chaining switch 











Point to the Locate CCW skeleton, 







See Diagram EF, Build CCW. 






© Locate CCW not built samamN>(67) 


tI 


CCW 
CCWFLAG 
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Module 
or label 


BLDCP400 


BLOCP410 


BOCCWO0O 
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Diagram EG12. I/O Manager: Build Channel Program 








Count-key-data devices: 





Is this a “piggy-back”’ 
(read/write) CCB? 


ema (47) 












PLHWAREA 
WKAIOMSW 


Are reads being processed? 
Yes No 


! 


46. Is this the first CCW for the 
read CCW chain? 


No Yes 


} 


47. ls the track number for the 
current buffer the same as 
for the previous CCW? 


j Yes 


48. Initialize the track address 
for this buffer. 





Cc 


CB 
ne i: 
CCBRDCCW a 


PLH 























Is this the first CCW of a 
new channel program? 


Yes No mmmmnp> (55) 


Cc 


cB 
aa 
CCBUFLGS |~ 





Notes for Diagram EG12 


44.-46. If the buffer being processed is for a ‘‘piggy-back’’ read 
operation, and if its CCW is the first Read CCW in the CCW chain, 
then a Head-Switch Seek CCW is forced into the CCW chain 
before the Read CCW is built. This is done for error retry 
during [KQIOB. 


A CCW chain performing “piggy-back” |/O operations is split 
into the write portion and the read portion; each part is 
separately executed. Therefore, the read portion must start 
with a Seek CCW. (IKQIOB sets it to a ‘‘long seek” during 
retry.) 


47,-48. Initially, a Seek CCW is required at the start of the CCW string, 
and the WKAHH field in PLHWAREA is set to X‘FF' during 
BLDCP initialization. 


After the first Seek CCW (or “piggy-back’’ Seek CCW) is to be 
built, WKAHH is set to the current head number. Whenever the 
head number of the CCW to be built differs from that of the 
previous CCW, a Head Seek CCW is inserted into the CCW chain 
before the Write/Read CCW is built. 


49,-50. The CCBRPS bit was set to zero initially so that the first CCW 
in each CCW string will be a Seek CCW, 








Module 
or label 


IKQIOA 
BLDCP300 


BLDCP310 


BLDOCP320 
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Diagram EG13. I/O Manager: Build Channel Program 






Count-key-data devices (continued): sat 


CCBUFLGS 












Turn on the ‘‘new channel 
program started”’ indicator. 


BUF (R/W) SEEK 










Is this an RPS device? 


Yes No emmm>(55) 


J 


Point to the seek and set 
sector CCW skeletons, and 
build them. 


IODFLAG 





See Diagram EF, Build CCW. 






Return vector: 


© CCW not built 


@ CCW built 


{ 


53. — Find the last group of I/O 
Data Block address arguments 
for this.CCB (saved in the 

1/O Data Block). 










1/O Data Biock 


IOADATA 
tOASEC 













See Diagram EC, Allocate and 
find an 1/O data field. 











Get the sector values, issue a 
get sector value SVC (SVC 75), 
and store the sector value in the 
i/O Data Block. 


Se 


1/0 Data Block 





BUF (R/W) SEEK 
1ODR 


BCB 


Notes for Diagram EG13 


51.-54. If the LODRPS bit in the BCB indicates an RPS device, a Seek 
CCW, followed by a Set Sector CCW, is built. The blocksize, 
record number, and device type are obtained, and the RPS 
sector value is obtained from the SECTVAL (SVC 75) routine. 
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Module 
or label 


BDCCwo000 


BLDCP330 


ALLDTOOO 


BLOCP400 
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Diagram EG14. I/O Manager: Build Channel Program 





SCCW Count-key-data devices (continued): 











Point to the seek CCW skeleton, 
and build a seek CCW. 


See Diagram EF, Build CCW. 






Return vector: 


@ CCW not built 


@ CCW built 


BCB 


Can any record on the track be 
used (replicated index read)? 







BUF (R/W) SEEK a“ 
pas thay — o No Yes 
(ODR NX 
. | 
57. Is the correct record number 


set up to be read? 








PLHWAREA 
aaa 


Notes for Diagram EG14 
65. If the device is not an RPS type, only a Seek CCW is built. 


56. If this is a replicated read operation for an index (or sequence set) 
record, the R number is not used because any record on the track can 


be read, 
A SIDE-TIC is required before building the first Read CCW in the 


57, 


chain, or when the Read CCW to be built is for a record that is not 
contiguous to the record to be read by the preceding Read CCW. 
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Module 
or label 


BLDCP420 


BOCCWO000 


BLOCP430 
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Diagram EG15. I/O Manager: Build Channel Program 


Count-key-data devices (continued): 













PLH 


PLHWAREA 


WKAR 







sccw 


SCCWSRH 















Initialize to read the correct record 
on the track, point to the SIDE-TIC 
CCW skeleton, and build the SIDE-TIC 
CCWs. 




















BCB 


BUF (RW) SEEK 


See Diagram EF, Build CCW. 







Return vector: 


© CCW not built 


@ CCW built 











FXL 









59, Make an entry in the Fix List for 
the buffer currently being processed. 






BUFCBAD 







See Diagram EN, Make a Fix List 
Entry. 






Return vector: 












@ Fix List entry not made 


@ Fix List entry made 





Notes for Diagram EG15 
58. This'step determines whether a Search |D-TIC CCW sequence is 


59, 


required. A Write Data CCW always requires a Search ID Equal-TIC 
sequence or the start of any Write/Read CCW sequence in the 
CCW chain. 


The WKAR field in the PLHWAREA is updated to contain the 
record number of the CCW to be built. WKAR is set to X'FF’ 
whenever a Seek CCW is built, or to X‘00’ when a Write Data CCW 
is built. 


For the Read, Write Check, and Write CKD CCWs, WKAR is set to 
the next record number to be read after the CCW is built. 


An entry is made in the Fix List for the buffer currently being 
processed. The entry is made before the Write/Read CCW is built in 
case a control block is needed to extend the Fix List to accommodate 
the entry . 

If an entry is not made in the Fix List, 1/O is started for the current 
chain of CCBs. There is no impact because the CCWs for that buffer 
have not been built yet. 
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Module 
or label 


BDCCWO000 


IKAIOA/ 
IKQIOC 


BLDOCP440/ 
BLOCP420 


FXLOOO 
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Diagram EG16. I/O Manager: Build Channel Program 


Build the write/read (function) 
CCWs. 


See Diagram EF, Build CCW. 


Return vector: 


@ Function CCW not built 


@ Function CCW built 


Allocate space in the |/O Data 
Block to save the current I/O 
address and the number of 
allocated control blocks used 
for this CCB. 


See Diagram EC, Allocate and 
find an 1/O data field. 


Return vector: 
@ Allocate not successful 


® Allocate successful 
(CKD devices)* 


@ Allocate successful 
(fixed block devices) * 





Notes for Diagram EG16 


60. 


61.-63. 


2.262 


The Write/Read CCW is now built. The pointer to its skeleton 
was passed by the I/O Manager Mainline in register 15 (steps 41 
and 60 of Diagram EA). 


If the CCW was not built (due to lack of control blocks), 1/O 
is performed for the current chain of CCBs to free existing 
control blocks for reuse. i 


A temporary save area is obtained from the last 1/O Data Block 
(FCDB) associated with this CCB. The save area is used to save 
the CA and the number of allocated blocks used by this CCB 
because the next buffer to be processed may be for another CCB. 


If space cannot be found for the save area (due to lack of control 
blocks), |/O is performed for the current chain of CCBs to free 
existing control blocks for re-use. 
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Module 
or label 
BLOCP450/ 
BLOCP430 


BOCCWO000 


BLDOCP460/ 
BLDCP440 


ALLDTO00 


*IKQIOA contains all CKD 1/O Manager code, and 
IKQIOC contains all FBA I/O Manager code. 
Consequently, CKD vs, FBA decisions do not appear 
in the actual code. The “decision” is shown in the 
HIPO for convenience in documentation only. 
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Notes 
64.-71. 


Diagram EG17. I/O Manager: Build Channel Program 












For fixed block devices: 
62. 


PLHWAREA | 









Save the current CA block 
address and number of allocated 
blocks used for this CCB. 


WKASTBB 





For count-key-data devices: 














63. Save the current CA block 
address and number of allocated 


blocks used for this CCB. 


oman (2) 


Deallocate the CCW block. 


PLHWAREA_ 
WKASEEK _ 
WKABLKS 
















CCB 
CCBLCCWB 
CCBHFXL 





See Diagram El, Dealiocate a 
Control Biock. 





Deallocate the Fix List block. 





See Diagram El, Deallocate a 
Control Block. 


for Diagram EG17 


These steps are entered at various points when no more control 
blocks are available for creating a CCB, CCW, |/O Data Block, or 
Fix List. 


If a lack of available blocks is detected during initial setup of the 
CCB, the CCB is removed from the CCB chain, and all control 
blocks associated with it are returned to the control block queue 
free list. 


If a lack of available blocks is detected at any other time, the 
partially built channel program currently being processed is 
EXCPed. Later, another channel program is built to complete 
1/0 for the buffer currently being processed. 


The EXCP/WAIT is then done for the remaining chain of CCBs 
in order to free blocks in use. 
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(/O Data Block 


1OCSTBB 


lOCDATA 





1/0 Data Block 


{ IOADATA 
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Module 
or label 


IKQIOc 
BLOCP450 


IKQIOA 
BLDCP470 


IKAIOA/ 
IKQIOC 
BLOCP500 


ALLBK300 


BLDCP510 


ALLBK300 
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Diagram EG18. I/O Manager: Build Channel Program 


PLH 





PLHWAREA 


WKASVCCB 


deallocate the CCB. 

















Control Block. 


Issue EXCP. 


PLH 


PLHSTBCB Ps 


fa Gc es 
BHD 
BHDHFLAG oe ay 


Notes for Diagram EG18 


69. If the answer to this step is ‘“yes’’, then buffers are being stolen from 
another task while it is also doing 1/O Manager processing. The 
“buffer steal’’ bit (PLHSTBCB) is turned on by the Buffer Manager 
whenever the |/O Manager is requested to complete the !/O of another 
task. PLHSTBCB indicates that buffers are available for the steal. 


\f the answer to this step is ‘‘no”, this request to the |/O Manager is 
for normal processing, not a ‘buffer steal’. 


70. This step determines if buffers were stolen during the exit to the 
user’s EXCPAD routine. 
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Clear the pointer to the current 
CCB (in the previous CCB), and 


See Diagram El, Deallocate a 


See Diagram EL, Do EXCPs. 
Wait for completion of 1/0. 
See Diagram EV, Wait on t/O. 


Is a ‘buffer steal’’ to be done? 


mp (2) 


Have the buffers been stolen? 


=p Return 









Module 

ccs or label 
a BLDCP610 

CCBNCCB 

aa! ALLBK300 
BLDCP530 
IKQIOD10 
IKQIOD20 
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Diagram EH1. I/O Manager: Lock the RSCB ECB 





























Module 
or label 
PLH 
Get the address of the AMBL, the IKQIOD 
PLHBSAVE string |D of the current PLH, and the 
eane Oe eae CLGTEOOO 
REGSV11 address of the RSCB for the PLH. 
oe ?- 's the string ID in the RSCB equal 
to the string 1D of the PLH? 
Yes No SEE Return 
AMBL RSCB 7 
Ny 7 
testes Is the RSCB available? CLGTEO10 
Eee oh, aes : 
| RSCBGATE | No Yes (lock it) SI Return 







RSCBCOM 






| 










RSCB 


RSCBGATE 





Is the wait bit posted in the 
RSCB ECB? 


No Yes mmm ) 
j 


5. Wait on the RSCB ECB. 












RSCBCOM 








Turn off the wait bit in the 


RSCB ECB. 
amp (3) 





Notes for Diagram EH1 


This routine functions like the ‘Lock the Block Pool Header’ routine 
except that the RSCB ID is tested to determine if it is owned by the 
current PLH and is the resource lock for the EXCPAD Parameter List. 
Only the owner of the RSCB can lock the ECB. 
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Diagram EI1. I/O Manager: Deallocate a Control Block 


































*Diagrams EF, EG, EV waa 
IKQIOA/ 
Get the Block Pool Header and IKQIOC/ 
lock it during control block deallocation. 1KQIOD 
ALLBK300/ 
See Diagram EE, Lock the Block Pool DALBKOOO 
BKPHD Header. AMDLKOOO 
boo aKPHO . 
BKPFSTBK (Cc >| 2. Save the pointer to any free blocks on awn 
Pas) on the queue, and replace it with the 
pointer to the queue of blocks to be deallocated. 
Get the last block in the chain of new blocks | wea 
to be deallocated, and place the pointer of - FCDB 
“old’’ free blocks into the last block. aoe 
Release the lock on the Block Pool FCBCHAIN 
Header. carne 
ALLBK200 


See Diagram ED, Unlock the Block 
Pool Header. 


Return 
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Diagram EJ1. I/O Manager: Dump Control Blocks 








Is the entry point a NOP? 


Yes No SEE Return 


J 


2. Get pointer to AMBL and calt 
IKQDUMP. 





Return 
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Module 
or label 


IKQIOD 


DEBUGOOO 
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Diagram EK1. I/O Manager: Unlock the PLH ECB 
























Module 
*Diagrams EM, ES or label 
IKQIOA/ 
IKQIOC/ 
PLH Clear the test and set (lock) byte. PLH IKQIOD 
pee os ee 
[ PLHECOM [= a Is the wait bit on? 


} 


3. Post the PLH ECB. 


Return 
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Diagram EL1. I/O Manager: Do EXCPs 







*Diagrams EA, EG, EV 


Call control block dump routine. 


See Diagram EJ, Dump Control 
Blocks. 








BHD 


BHDCCBCH 


CCB 


CCBUFLGS 
CCBLCCWB 


PLH 


PLHWAREA 
WKADBHD 

















Get the BHD and the CCB that 
it points to. Is there a CCB? 


Yes No mmm (17) 


} 


Has an EXCP already been 


issued for the IORB? 
emme> (ic) 
























No Yes 


Notes for Diagram EL1 


1.-3. This routine is used for both count-key-data and fixed block devices. 
These steps search the CCB chain for any |ORBs that have not had 
an EXCP issued for them. 
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Module 
or label 


IKQIOD10 


EXCPO000 


DEBUGOO0O0 


EXCP010 
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Diagram EL2. I/O Manager: Do EXCPs 











































CCB 
CCBUFLGS 


F 


XL 
FXLOFST 






| 








FXLNEXL 


Notes for Diagram EL2 


4, 


2.270 


For fixed block devices, the last CCW in the chain is found, and 
if it is a Locate CCW (X‘43’), it is converted to a NOP CCW (X’03’). 


For CKD devices, the first CCW in the chain is converted from 
a Head Switch Seek CCW (X'1B’) to a Long Seek CCW (X'07’). 


For both device classes, the command chaining and data chaining 
bits are turned off in the last CCW. 


The bit CCBERROK is turned on to indicate that the |ORB has 
had an EXCP issued for it. One is added to the EXCP counter 
in the AMDSB. 


. If the Fix List has not yet been formatted, the “end of Fix List'’ 


indicator (or the pointer to the next Fix List entry in the chain) 
is set following the last entry in the Fix List pointed to by the 
IORB. (Each new Fix List block was inserted into the chain 
between the IORB and the Fix List block it pointed to. The 
last Fix List block used becomes the first block in the chain.) 


The starting and ending addresses (2 bytes each) are converted to 
fullword addresses, adjusted to the beginning and end of their 
respective 2K addresses. After the Fix List entries have been 
adjusted, the format bit (CCBFIX) is turned on. 
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Get the last CCW in the chain. 


For a Locate CCW (fixed block 
devices), change it to a NOP CCW. 


For both kinds of devices, turn 
off the command chaining and 
data chaining bits in the last CCW. 


Turn on the “IORB EXCPed (or 
formatted)” bit, and add 1 to 
the EXCP counter. 


Is the Fix List formatted? 


eum (12) 


7. Get the first Fix List block in the 
chain. Move the chain pointer to 
the next Fix List block after the 

last entry in the block. 


No Yes 









Module 
CCW Or label 
For CKD devices, the first CCW aaa 
is a Head Switch Seek CCW. 
ccwor Change it to a Long Seek CCW. 
FCBOFSET EXCP020 
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Diagram EL3. I/O Manager: Do EXCPs 


Module 
or label 









Convert the 13-bit starting EXCP100 


and ending address into 
fullword entries in the Fix 
List (based on 2K boundaries). 









Is the next entry a pointer to 
another Fix List or the “end 
of Fix List” indicator? 







Yes No 


} 


10. Is it the end of the Fix List? 


i 






Yes No 


| 


11. Turnon the “Fix List 
formatted” bit. 


A 








ccB 


CCBHFXL 
















Fixed block devices CKD devices 
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Diagram EL4. I/O Manager: Do EXCPs 


Module 
or label 


12. Issue an SVC 0 to do I/O. EXCP200 
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Diagram ELS. I/O Manager: Do EXCPs 











CCBNCCB 









Is there another CCB in the 
chain? 


No Yes ame (3) 


J 


14. Scratch buffers used for write 
operations. 





See Diagram ET, Scratch 
Buffers. 


Return 


Notes for Diagram EL5 


13.-14. After all the |ORBs in the chain have been EXCPed, the Scratch 
Buffers (SCROOO) subroutine is invoked to invalidate the BCBs 
used by other PLH strings if they have the same RBA, and if a 
write was issued for that RBA by the EXCP routine. 
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Module 
or label 


EXCP210 


EXCP220 


SCROOO 
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Diagram EM1. I/O Manager: EXCPAD Exit Processing 


RPLACB 
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RPL 
-—— Is a close request being handled? 
5 Yes ee Return 


2. Is the current PLH an AlX PLH? 


4 Yes Soe} Return 







3. Get the base cluster ACB; is an 
exit list specified? 


Yes No 


| cP Return 







4. ls there an EXCPAD exit? 


4 No ae Return 












5. Is the EXCPAD exit specified and 
active? 


4 Be SEP Return 








PLHPARML an we 


6. Is there an EXCPAD parameter 
list available? 


No Yes mm ) 


Module 
or label 


IKQIOD 
EXCPA000 
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Diagram EM2. I/O Manager: EXCPAD Exit Processing 




















7. Get storage for the parameter list 
(GETVIS). Was the GETVIS successful? 
t ne SEP Return 
PLH 8. Save the pointer to the parameter 
fgeae a list in the PLH, and clear the list. 
_—— 9. Is a “buffer steal’ being done? 
: No Yes SP Return 
PARML 
_— 10. ‘Is the parm list available? 
area 
Yes (lock it) No SEP Return 
RPL PLH 
11. Save the VSAM registers, the pointer 
Pao al Rae, oat peta] to the CA split RPL, and the pointer 
to the CCB in the parm list. 
ACB AMBL 
EXLST 
== 12. Get the address of the user’s 
ee Se nee eel EXCPAD routine. 
13. Unlock the RSCB ECB. 
See Diagram ER, Unlock the RSCB 
ECB. 
Notes for Diagram EM2 - 
9. If the EXCPAD exit processing routine is entered from the WAIT 
routine while it is doing a “buffer steal’, no exit is taken to the 
user’s EXCPAD routine. 
10. A test and set is issued against the EXCPAD parameter list ECB. 


If the ECB is not free, no exit is taken to the user’s EXCPAD 


routine. 
11,-14, 


The parameter list is initialized with the pointers to the calling 


RPL (user RPL), the pointer to the split RPL (used during CA 
split), and the CCB for which the WAIT will be issued. VSAM 
registers 2-15 are also saved in the parameter list. The RSCB ECB 
(if owned by the current PLH) and the PLH ECB are unlocked 

to enable a “buffer steal’ to occur, if buffers are required by 
another PLH in the same string while the user is doing EXCPAD 


processing. 
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uv 
r 
x 


PLHPARML 


EXPECBT 

EXPSAVE 
EXPRPLS 

EXPECB 


vu 

> uv 
2 5 
= z 
Ee r 
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Module 
or label 


EXCPA100 


CLGTEOOO 
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Diagram EM3. I/O Manager: EXCPAD Exit Processing 






















Module 
—e 
-—— Untock the PLH ECB (held by 
he el buffer manager, |KQBFA). 
See Diagram EK, Unlock the DNECBO0O 
PLH ECB. 
CCB 
—-——fe15. Has the I/O completed yet? 
No Yes ea ()) 
PLH | (18) 
| PLHSADDR = [-——--—~> 16. Restore the user’s registers, 
aaa 7 set the pointer to the parm list 
in register 1, and call the 
PARML user's EXCPAD routine. 
17. Get the pointer to the parm list. 
EXCPA200 





Restore the VSAM registers. 


Notes for Diagram EM3 


15.-16. If the !/O for the current CCB is complete, no exit is taken to 
the user’s routine. 


17.-19. Upon return from the user’s exit, the parameter list is checked to 
see if it has been altered by the user (EXPPECBT#X‘FF’). If it 
has been altered, a program check is caused because it is not 
known if the VSAM registers (saved in parameter list) are still 
valid. To allow further VSAM processing at this point could 
cause unpredictable results. 
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Diagram EM4. I/O Manager: EXCPAD Exit Processing 


PARML 


EXPPECBT -—--— 





Has the user accidentally 
destroyed the parm list? 





4 


20. Clear the test and set (lock) 
byte in the parm list ECB. 









Lock the RSCB ECB. 





PLH 
--- Lock the PLH ECB. (Restore 
fe gee eT hold for the buffer manager, 


I{KOBFA.) 








Notes for Diagram EM4 


20.-22. The RSCB ECB and the PLH ECB are again locked for VSAM 
processing, and control returns to the WAIT routine. 
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No Yes (program check) 


See Diagram EH, Lock the RSCB 
ECB. 






See Diagram EO, Lock the PLH 
ECB. 












EXPPECBT 
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Module 
or tabel 


EXCPA210 


CLGTEO0O 
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Diagram EN1. I/O Manager: Make a Fix List Entry 


AMDSB 


AMDRCHAN 










Fix List. 








No Yes 


\ 
\ 4 


No Yes 


Notes for Diagram EN1 


Each entry in the Fix List is rounded to upper and lower 2K boundaries. 
This minimizes the number of entries made to the table because most 
control blocks are within the same 2K page. Because the entries are 
adjusted to 2K boundaries, only two bytes are required for each entry 
(13 bits). 


The CCB contains the pointers to the start of the Fix List (CCBHFXL) and 
to the lowest entry in the Fix List (CCBFXLEN). Each Fix List entry is 

8 bytes; the first 4 bytes is used as a chain pointer to keep the entries 
sequenced in ascending order. The last 4 bytes contain the starting and 
ending entry addresses adjusted to 2K boundaries. The last entry in the 
Fix List is used as a chain pointer to another Fix List (if more than one 

is required per CCB), and the offset to the currently available position 

for the next entry. 


1. If execution is on a $/370, a Fix List is not built. Control 
returns to the caller without any processing having been performed. 


3.-5. The CCB pointer to the lowest entry is obtained and saved as a ‘‘back 
pointer’ to the previous entry, in case the new entry becomes the 
lowest entry in the chain. If there is no entry in the Fix List, a new 
entry is made. If there are existing entries, the list is searched to 
determine where the new entry will be made. If the new entry is 
higher than existing entries, it is added to the end of the chain. 

The chain pointer of the last entry contains zeros to indicate the 
end of the entry chain. 
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“Diagrams EC, EF, EG 


Save registers and get starting and 
ending addresses of area to be fixed. 


Convert the starting and ending 
addresses to a 13-bit representation. 
(Truncate to 2K boundaries.) 


Get the address of the CCB pointer 
to the lowest sequenced entry in the 


Save the address of the current entry 
(or CCB entry). 


5. Is there a chain pointer to the next entry? 


emm>(17) 


Yes No (first time or 


| end of chain) 


“Ne 

6. Is the starting address of the new entry 
“A greater than the ending address of the 
currently-pointed-to entry? 


J 


7. Is the starting address of the new entry 
lower than the starting address of the 
currently-pointed-to entry? 


emmmmpp(15) 
































Module 
or label 
IKQIOA/ 
IKQIOC 
PLHWAREA 
WKAFXLSV FXLOOO 
FXLO10 


















If there is an existing entry/entries in the Fix List, the starting 
address of the new entry is compared to the ending address of the 
current entry. If the new value is greater than the current entry, 
the next entry (if any) is obtained and checked. 


The starting address of the new entry is then compared to the 
starting address of the current entry. If the new entry is less than 
the current entry, the ending address of the new entry will be 
compared to the starting address of the current entry (steps 15-24). 


\f the new ending address is lower, the new entry is placed in the 
Fix List and chained from the previous entry (or CCB) to the current 
entry. 


If the new ending address is not lower than the starting address of 
the current entry, the starting address of the current entry is 
replaced with the starting address of the new entry because the two 
entries overlap (steps 15 and 16). 


. 
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Diagram EN2. I/O Manager: 



















a Is the ending address of the new entry 
Pad less than or equal to the ending address 
of the currently-pointed-to entry? 


No Yes (12) 
§ 


9. Is the currently-pointed-to entry 
the jast entry in the chain? 


No Yes 
N49 


—el0. Is the ending address of the new 
entry less than the starting address 
of the next-pointed-to entry 

in the chain? 


No Yes 
4 


11. Set the ending address of the 
currently-pointed-to entry to 
the starting address of the 

next-pointed-to entry. 









FXLEA (A) 





R7 





12. Set the return register for a 
normal return. 


_————__,~—— 13. _—_— Restore the registers. 






PLHWAREA 


WKAFXLSV 









Return 


Notes for Diagram EN2 


10. 


11. 
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If the starting address of the new entry is not lower than that of the 
current entry, the ending address of the new entry is compared to the 
ending address of the current entry. If the new address is less than 
or equal to the current address, the new address is ignored because 

its address range is already included in the area spanned by the 
current entry. 


If the ending address of the new entry is greater than that of the 
current entry, then the next entry in the entry chain is obtained (if 
one exists). 

\f another entry does not exist, the ending address of the current 
entry is replaced by the ending address of the new entry because 
the two entries overlap (step 14). 


If another entry exists in the entry chain, the ending address of the 
new entry is compared to the starting address of the next entry. If 
the new address is lower, the ending address of the current entry is 
replaced by the ending address of the new entry because the two 
entries overlap (step 14). 


This new entry overlaps the address ranges of the current and next 
entries. This situation can occur if two earlier entries do not start and 
end on 2K boundaries except after rounding. 


The two en tries are in sequence in the entry chain, but they are not 
contiguous in storage. This can occur if the new entry begins in the 

same 2K block as the lower (current) entry, and ends in the same 2K 
block as the higher (next) entry. 


Make a Fix List Entry 









FXL 
15 


R 
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Module 
or label 


FXLO20 


FXLO30 
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Diagram EN3. I/O Manager: Make a Fix List Entry 













14. Store the ending address of the new 
entry in the ending address of the 
currently-pointed-to entry. 


FXL 


FXLSA {A) —— 


R7 a“ 


Se 


ts the ending address of the new 
entry less than the starting address 
of the currently-pointed-to entry? 


No Yes 


4 


16. Store the starting address of the 
new entry in the starting address 
of the currently-pointed-to entry. 









| 






FXL 
FXLOFST 







CCBHFXL 







Get the offset to the next available 


FXLMAX entry position in the Fix List. 







Is there space available for 
another entry? 


No Yes 





Notes for Diagram EN3 


17.-20. When a new entry must be placed into the Fix List, the pointer to 
the currently used Fix List block is obtained from the CCB. If no 
room exists in the Fix List block, a new block is obtained from 
the ALLBKOOO routine. 


If a new block cannot be allocated, an error return is taken, and 
1/O is performed to free the currently used control blocks. 


If a new block is obtained, it is chained to the existing Fix List 
blocks, and the CCB is chained to point to the new block. 
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FXLEA (A) 
FXLSA (A) 












Module 
or label 


FXLO4O 


FXLOSO 


FXLOSO 
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Diagram EN4. I/O Manager: Make a Fix List Entry 




































Module 
or label 
Get a new Fix List block. 
See Diagram EB, Allocate a ALLBKOOO 
Control Block. 
Return vector: 
@ No control block available 
@ Control block available 
ccB | FXLO70 
CCB FXL (new) 
CCBHFXL 20. Chain the new Fix List to the Pas Si fo | 
current Fix List, indicate chained 
Fix Lists, and chain the CCB to 
point to the new Fix List. ee) Mee ol 
€ FXL (old) 
ates esl ae 






Set the base to the next available 
Fix List entry position, and move 
the pointer from the previous Fix 
List entry to the chain pointer field 
of the new Fix List entry. 


FXLCP (old) 


XL 


| 


FXLCP (old) 









Establish the base for the new Fix 
List entry to make it the current 
entry, and store the chain pointer 
to this entry in the chain pointer 
field of the previous entry. 


Notes for Diagram EN4 


21.-24. The address of the next available position in the Fix List block 
is determined, and the new entry is linked into the chain in the 
appropriate sequence. (The starting and ending addresses are 
stored in the next available position.) The offset is then updated 
to point to the next available position in the Fix List block. 
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FXLO80 
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Diagram ENS. I/O Manager: Make a Fix List Entry 







FXL 
23. Store in the current Fix List entry 
position the starting and ending 

addresses of the new entry. 





CCB 


CCBHFXL 










FXLSA (new) 
FXLEA (new) 


FXLOFST 






24. Update the offset pointer in the 
Fix List to point to the next 
available entry position. 










FXLOFST 
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Diagram EO1. I/O Manager: Lock the PLH ECB 





PLH 





PLHECBT 
PLHECOM 
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*Diagrams EM, ES 







\s the PLH ECB available PLH 



















(unlocked)? Fs 
No Yes (lock it) E> Return 






J 


is the PLH ECB posted? 
No mmm (4) 
Wait on the PLH ECB (SVC 7). 


a>! ) 


Turn off the wait bit in the 


PLH ECB. 


PLHECOM 










Yes 
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Module 
or label 


IKQIOA/ 
IKQIOC/ 
IKQIOD 


HDECBOOO 


HDECB050 
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Diagram EP1. I/O Manager: Update the DASD Address 


Module 
or label 










RE IKQIOA 


ee 


Initialize for incrementing 


ae the CCHHR.. 


BUF (R/W) SEEK 
IOAR 













Can any record on the track 
be read? 


No Yes GEE Return 


Add 1 to the R field of the 
CCHHR. 















LPMBNOBK 






4. Is the R field greater than the 
number of records on the track? 


Yes No Se Return 




















Set R to the first record on 
the next track, and add 1 to 
the HH field. 


Notes for Diagram EP1 


This routine is called whenever a Format Write, Write, Read, or Read 
Back Check CCW is built. It updates the CCHHR address, in the buffer 
associated with the CCW being built, to point to the next sequential 
data record in the data set. 
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Diagram EP2. I/O Manager: 


LPMB 


BCB f 


BUF (R/W) SEEK | / 
(OAHH 
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Update the DASD Address 





Is the HH field less than the 
number of tracks on the 
cylinder? 







E> Return 


No Yes 


J 


Set HH to the first track on 
the next cylinder, and add 1 
to the CC field. 












BUF (R/W) SEEK 






Return 
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Diagram ER1. I/O Manager: Unlock the RSCB ECB 







PLH 
PLHBSAVE 


REGSV11 
PLHSTRID 


AMBL 








Yes 








AMBALIST 


RSCBSTID 
RSCBCOM 





ECB? 





No 


Return 


Notes for Diagram ER1 


This routine functions like the “Unlock the Block Pool Header’’ routine 
except that the RSCB ID is tested to determine if it is owned by the 
current PLH and is the resource lock for the EXCPAD Parameter List. 
Only the owner of the RSCB can unlock it. 
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1. Get the address of the AMBL, the string 
ID of the current PLH, and the address 
of the RSCB for the PLH. 


Is the string 1D in the RSCB equal to 
the string 1D of the PLH? 


Clear the test and set (lock) byte in 
the RSCB. 


Is the wait bit posted in the RSCB 


Post the RSCB ECB. 


Module 
or label 


tKQIOD 








OPGTEO0O 







S> Return 


No 


RSCB 


RSCBGATE 


RSCBCOM 
















Yes 


Sam Return 
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Diagram ES1. I/O Manager: Convert RBA 


ACB : 
ACBAMBL 


BCB 







Get the address of the correct 
AMBL. 






Get the RBA to be converted, 
and set the first-time indicator. 


Get the first EDB in the chain. 










4, Is the RBA too high for this 
Paste EDB? 
E 








No Yes 


J 


5. Is the RBA too low for this 
EDB? 


Yes No 









0B 
EDBHIRBA 
EDBLORBA 
EDBNEDB 








Is there another EDB in the 
chain? 











No Yes 
R15 | 
[+z =e —w 7. Is this the first time through 





this routine? 












No 





Yes 


Notes for Diagram ES1 


The address of the AMBL is required for the extend EDB routine 
(IKQEDX) or the mount volume routine (IKQEOV). 


Register 15 is used as an indicator when searching EDBs for the 
correct RBA range for the RBA to be converted. if the RBA is not 
found in the current chain of EDBs, the extend EDB routine is 
called to ensure that all EDBs for the data set are available. After 
the EDBs have been extended, a second pass is made, searching for 
the proper RBA range. If a valid range is not found, register 15 is 
set to zero (set by the return from extend EDB routine), and an 
error exit is taken. 
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| 





| 
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Module 
or label 


IKQIOA/ 
(KQIOC 
RBACNOOO 


RBACNO30 


RBACN040 


RBACNO50 


RBACNO60 
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Diagram ES2. I/O Manager: Convert RBA 


















No Yes 


J 


failure. 










PLH 


PLHECB 





hold on the PLH. 


PLH ECB. 


Get any new EDBs. 


hold on the PLH. 


PLH ECB 











extend EDB routine. 


Notes for Diagram ES2 


12. This step releases the Buffer Manager (IKQBFA) hold on the PLH 
ECB (dequeues it) while the extend EDB routine is processing. 


14. This step restores the hold on the PLH ECB (enqueues it) for the 
Buffer Manager. 


15.-16. Between the dequeue and enqueue of the PLH ECB, the buffers 
could have been stolen. Therefore, it is necessary to check if any 
buffers are still on the I/O queue. 

NOTE: If this RBA conversion request was invoked by the 
Buffer Manager CA hold routine (IKOBFC), the request is retried 
because no buffers are on the queue at this point; that is, this 

is the only subroutine in the 1/O Manager that does any processing 
for this buffer manager request. 
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Set return code for invalid RBA. 


Se Return 


Load EDB extend routine 
(CDLOAD IKQVEDX). 


Was the load successful? 


ee>(i2) 


11. Set return code for CDLOAD 


SED Return 


Release the Buffer Manager 


See Diagram EK, Untock the 


See Diagram FB, Extend EDB. 


Restore the Buffer Manager 
See Diagram EO, Lock the 


Save any return code from 


Module 
or label 


RBACNO70 


RBACNO80 







DNECBO0O 


tKQEDX 






HDECBO00 
PLH 


PLHWAREA 
WKARTNCD 
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Diagram ES3. I/O Manager: Convert RBA 


BHO Were the buffers stolen while 


the PLH was unloaded? 








[rE ——[— 17. Was the extend EDB successful? 


EDB 


}EDBFLGS = |— — —|—-*18. Is this a fixed block EDB being 





being handled by IKQIOA? 






No (mixed architecture) 



















if this is a CKD device. 


Notes for Diagram ES3 


17. 


18.-23. 


After any new EDBs were successfully obtained, the EDB search 
is retried. 


The possibility exists that the wrong 1/O Manager phase could 

be invoked when sequentially processing a KSDS index set 

because the index set is on a fixed block device, while the imbedded 
sequence set is on a count-key-data device (or vice versa). In this 
case, !/O is performed only for those buffers associated with the 
current I/O Manager phase (IKQIOA for CKD, IKQIOC for FBA). 


The EDB is tested to determine If the proper |/O Manager phase 
has control, or if “RBA conversion only”’ is to be performed. 


If neither of the above cases exists, the architecture bit in the 
AMDSS is turned off if the fixed block |/O Manager is in control, 
or turned on if the CKD I/O Manager is in control. This causes 
the Buffer Manager to redrive the |/O requests (that were not 
completed in the current pass) invoking the other |/O Manager. 


NOTE: For “‘piggy-back” write/read requests, this could result 
in 3 or 4 passes if an extent boundary is crossed and processing 
goes from an index set record to a sequence set record (or 

vice versa). 
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No Yes Ga Return 


(+4) 







Yes No a> Return 





handled by IKQIOC or a CKD EDB 


Yes ee (25) 


Turn off “fixed block architecture” 
bit if this is an FBA device. Turn 
on “fixed block architecture” bit 






AMDATTR4 
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Module 
or label 


RBACN100 
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Diagram ES4. I/O Manager: Convert RBA 






Is this a “write pass” RBA 
conversion? 


Yes No mmm (22) 


J 


Turn off “must write” bit, 
and turn on “write ignored’”’ 
bit in buffer. 

















22. Is this a ‘read pass” RBA 
conversion? 









Yes No Same Return 


(+8) 


Turn off “‘read’’ bit, and turn 
on “read ignored” bit in 


buffer. ; 
Sm Return 


(+8) 









Notes for Diagram ES4 


20.-21. If the buffer has a write RBA that must be handled by the other 
1/O Manager phase, then the ‘must write” bit (BUFCMW) is 
turned off to inhibit writes, and the ‘‘write ignored” bit (BUFWRIGN) 
is turned on to inform the Buffer Manager that the write for the 
buffer needs to be redriven. 


22.-23. If the buffer has a read RBA that must be‘handled by the other 
1/O Manager phase, then the “read” bit (BUFCRRD) is turned 
off to inhibit reads, and the ‘‘read ignored’’ bit (BUF RDIGN) 
is turned on to inform the Buffer Manager that the read for the 
buffer needs to be redriven. 






BUFFLAG1 










Module 
or label 


RBACN110 
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Diagram ES5. I/O Manager: Convert RBA 


DB 
EDBFLGS = 





Is the volume described by the 
EDB mounted? 


No Yes emp (3') 


















Save the entry point to the 
correct 1/O Manager module for 
use by the purge buffer routine 
(IKQPBF) and the Buffer Manager. 





Load volume mount routine 
(CDLOAD I KQVEOV). 







Was the load successful? 


Yes No -@) 


{ 


27. Mount the volume. 














See Diagram FA, Mount Volume. 


Was the end of volume mount 
successful? 


Yes No EEE Return 


m 


DB 


EDBFLGS parsons 


Is the volume mounted? 


No Yes Se Return 


(+4) 








Set return code for volume or 
extent unavailable. 


REE Return 


Notes for Diagram ES5 


24.-30. 


After the correct EDB has been located, it is tested to see if the 
volume is mounted. If it is not, the mount volume routine is 
called. If the correct volume is mounted, the RBA convert routine 
returns to the 1/O Manager mainline routine to retry RBA 
conversion as described under step 21 of Diagram EA, |/O Manager: 
Mainline. 


If the correct volume cannot be mounted, an error exit is taken. 
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PLHIOMGR 
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Module 
or label 


RBACK200 


IKQEOV 


(KQIOA/ 
IKaIOC 
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Diagram ES6. I/O Manager: Convert RBA 







m 
oO 
a 


EDBSYMU 
EDBLPMBA Se 
EDBLORBA SS 
-EDBLBBBB 


EDBCASZ 
EDBTPBCA 


— 


LPMB 
LPMBLKSZ 
LPMTIBCA 


So 


m 
oO 
a 


EDBSYMU 


EDBLCC 
EDBBB 
EDBCASZ 
EDBTRKCA 
EDBFLGS 


LPMB 
LPMBLKSZ 
LPMBPTRK 
LPMTPC 
LPMBPBCI 


Notes for Diagram ES6 


31. For fixed block devices, block address conversion is as follows: 

a. Determine the relative displacement of the RBA within its extent 
(EDB) range, and divide it by the CA size. This step determines 
the relative CA number within the extent. 

b. Multiply the quotient by the total number of physical blocks in 
the CA (including any waste blocks at the end of the CA). 

c. Add the starting block number of the extent to the value from 
step b to get the CA starting block number. 

d. Save the CA starting block number in the BCB. 

e. Divide the remainder calculated in step a by the physical 
blocksize. 

f. Add the total number of physical blocks used for the imbedded 
sequence set, plus any unused blocks at the end of the sequence 
set to the value from step e. (If there is no imbedded sequence 
set, a zero value is added.) 

g. Store the result from step f in the starting block for the Cl. 

For count-key-data devices, CCHHR address conversion is as follows: 

as follows: 

a. Determine the relative displacement of the RBA within. its 
extent (EDB) range, and divide it by the CA size. This step 
determines the relative CA number within the extent. 

b. Divide the remainder from step a by the number of bytes per 
track. 





9° 


d. Add the quotient from step b to the value obtained in step c. 
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For fixed block devices: 


Convert the RBA to a block address, 
and initialize the BCB for 1/0. 


®@® Get the symbolic unit address. 
@ Get the address of the LPMB. 
@ Calculate the block address. 


@ Set the number of Cls to be 
written to one (block). 


For CKD devices: 
EUELEMER. Convert the RBA to a CKD address, 
EDBLORBA and initialize the BCB for I/O. 
EDBLHH Ra 
e @ Get the symbolic unit address. 
| @ Get the address of the LPMB. 


@ Calculate the BBCCHHR address. 


*@ Set the number of blocks to be written 
to the number of blocks per Cl, and set 
the RPS indicator (if an RPS device). 


Multiply the quotient from step a by the number of tracks per CA. 


IKQIOC 
RBACN300 















BCB 


BUFCUR(R/W)U 
lIODCURU 
BUF(R/W)LPMB 


1ODLPMB 
BUF(R/W)SEEK 
lOOSTBB 


IODBBBB 
BUFBKST(R/W) 


!tODBKSTI 













BCB 
BUFCURIR/W)U IKQIOA 


—_ RBACN300 
JODCURU 


BUF(R/W)LPMB 


\ODLPMB 
BUF(R/W)SEEK 


IODFLAG 









BUFBKST(R/W) 


1ODBKSTI 


Divide the remainder from step b by the physical blocksize. 

Add 1 to the quotient from step e, and store it in the R field of 
the MBBCCHHR. 

Divide the value obtained in step d by the number of tracks per 
cylinder. 

Add the starting track address of the extent (EDB) range to the 
value from step g, and store it in the HH field of the MBBCCHHR. 


Subtract the number of tracks per cylinder from the value obtained 
in step h. If the difference is positive or zero, store the value in 

the HH field of the MBBCCHHR, and add 1 to the quotient obtained 
in step g. 

If the difference is negative, do nothing to the MBBCCHHR or the 
quotient. 

Add the starting cylinder address of the extent (EDB) range to 

the quotient obtained in step g (plus step i, if applicable). Store 

the result in the CC field of the MBBCCHHR. 

Move the BB field from the EDB to the BB field of the MBBCCHHR. 
Set the M field to X‘00’ (not an RPS device) or to X‘80’ (RPS 
device). 
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Diagram ET1. I/O Manager: Scratch Buffers 


~o 
i 
| 


PLHWAREA 
WKADBHD 


AMBL 


AMBLPLHN 


HD 


BHD1STW 


BUFFLAG1 


BUFCWRBA 


i eee et 
BCB (A) 
es 


Notes for Diagram ET1 


This routine invalidates buffers (with the same read/write RBA) associated 
with other PLH strings for the same data set when the buffer for the 


current PLH has been written. 


1.-3. If the AMBL indicates a multi-string data set and there are buffers 


| 


\ 
N 
N 


| 





XY 


Is it a multi-string data set or access via path? 


E> Return 


Yes No 


§ 


Is there a BCB on the BHD? 


Yes No 


§ 


Was this buffer used for a 
write? 


Yes No 


Get the write RBA (A) and the 
correct pointer to the BCB 
chain (pointer to first BCB). 


Are the BCBs the same? 


5 Yes em>(13) 


Was this buffer used for a read? 
Yes No 


4 


ts the read RBA (B) the same as 
the write RBA (A) of the BCB 
chained to the BHD? 


No Yes 


5 


5 


(8) 


6.-9. 


quam Return 


Module 
or label 


IKQIOD 
SCROOO 


SCRO20 


SCRO30 


If the string 1Ds do not match, the RBAs of the buffer just obtained 
are compared to the write RBA of the current buffer. If the read 


(or write) RBA does not match, or if the validity bit is off (BUFCVAL 


on the BHD that have their write indicators on (BUFCMW and 
BUFCFMT in BUFFLAG1), the write RBA of each buffer on the 
queue is compared to the read/write RBAs of all buffers (for other 
PLHs) for the same AMDSB. 


4.-5. 


The buffer pool header is obtained from the AMDSB (or the BSPH 


for local shared resources), and the BCB is compared to that obtained 
in step 3 or step 14. If they are the same, the buffer is skipped. 


Not LSR 
BCB 






BUFNBCB 
BUFNBCB 


AMDSB 





AMDFSBCB 










BSPH 


BSPHBCB 


BCB 
BCB 
BUFNBCB 


LSR 
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in BUFFLAG 1), the next buffer in the pool is checked. 
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Diagram ET2. I/O Manager: Scratch Buffers 







Module 
BCB (B) Br label 
BUFFLAG1 Is the buffer valid? SCRO40 
BUFCWRBA Yes = No emm>(13) 
Is the write RBA (B) the same 
as the write RBA (A) of the 
BCB chained to the BHD? 
Yes No ee aC 3) 
AMBL ; 
Is Local Shared Resources (LSR) SCRO5O 
eres! specified? 
g 
a Are the data set IDs the same? 
AMDSB 
eS) Yes No (13) 
TAMDeDSN ace (B) 
Set the “write invalidate” bit in SCRO60 
BCB (B) the BCB for this buffer. 
Are there more BCBs on the chain? SCRO70 
No Yes amen ) 
BCB (A) | 
| BUFCHAIN | ? Is there another BCB in the SCRO80 
ie = ot Gy current BHD chain? 
No Yes om (3 ) 





Return 


Notes for Diagram ET2 


10.-12. If LSR was not specified, or if the read RBAs matched, or if the 
buffer was valid and the write RBAs matched, the write invalid 
bit is turned on in the buffer in the buffer pool (no LSR). For 
LSR, the buffer in the LSR pool must have its 1D compared to 
the |D of the current AMDSB to determine if the buffer is for 
the same data set. 


13.-14. Each buffer in the pool is compared to each buffer in the chain 
in a similar manner. 
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Diagram EU1. I/O Manager: Sort BCBs 











. Set the ‘not done” indicator 
to zero. 


. Get the BHD pointer to the BCB 
chain. 














. Is there a BCB (1) in the chain? 
Yes No 


{ 


4. Is there another BCB (2) in the 
chain? 








Yes 


4 


5. Is the DASD address of BCB (1) 
greater than the DASD address 
of BCB (2)? 


Yes No 
4 


6. Swap the position of the two 
BCBs in the chain (sort in 
ascending order), and chain 
BCB (1) to BCB (3) if there is 
a BCB (3). 


No 
BCB (1) 


BCB (2) 














Notes for Diagram EU1 


1.4. 


5-8, 


The BHD pointer to the 1/O queue is made to look like a BCB chain 
pointer. No sorting is done if there is only one (or none) BCB in 
the queue. 


The DASD (read/write) address of the first BCB is compared to the 
DASD (read/write) address of the second BCB (depending on whether 
reads or writes are being processed). The two BCBs are rechained in 
ascending sequence, based on their DASD addresses. The second BCB, 
if rechained, is now compared to the third BCB, if any, in a like manner. 
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Module 
or label 


{KQIOA/ 
IKQIOC 


SORTO0O 


SORTO10 


SORTO20 
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Diagram EU2. I/O Manager: Sort BCBs 


Notes for Diagram EU2 















7. Initialize for processing the 
next two BCBs, and set the 


“not done” indicator to non zero. 






. Save the pointer to the first 
BCB in the chain. (It is now 
the header.) 


> (; ) 


9. Is the ‘not done” indicator 0? 


Yes No meen? ) 


Return 


9. After the first pass through the chain, the BCB with the highest DASD 
address is positioned at the end of the chain. Another pass is made 
through the chain to sort the other BCBs preceding it in the chain. 
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Module 
or label 


SORT030 


SORTO40 
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Diagram EV1. I/O Manager: Wait for I/O Completion 


*Diagrams EA, EG 










PLH 


PLHWAREA 


WKADBHD 


BHD 
BHDCCBCH 


















Get the BHD and any CCB chained to it. 
Is there a CCB on the chain? 


Yes No que Return 


4 


2. Is the CCB formatted? (Has an EXCP 
been issued for it?) 


5 Yes amp ) 


3. Issue an EXCP against the |ORB. 


—>® 


4. Go to user’s EXCPAD routine. 












ccB 


CCBCOM1 —— 

















See Diagram EL, Do EXCPs. 









See Diagram EM, EXCPAD 
exit processing. 


o 


HD 


BHDHFLAG ess 









Were the buffers stolen during 
EXCPAD processing? 


No Yes qe Return 


$ 


6. Wait for 1/O completion (SVC 7). 






(2) 


CB 





CCBCOM1 — = 





Notes for Diagram EV1 


1. This routine is used for both count-key-data and fixed block devices. 
The first CCB on the BHD chain‘is obtained for WAIT processing. 
There is always one CCB with an associated CCW, Fix List, and 1/O 
Data Blocks left on the BHD queue, although the buffers may be 
gone. The CCB left on the queue is the one originally put on the 
queue. 


2.-3. The CCB (CCBERROK) is tested to determine if an EXCP is required. 


4, Before the WAIT is issued, the user’s EXCPAD routine will be called 
(if one was specified). 

5. After return from the EXCPAD routine, the BHD is tested to 
determine if a buffer steal occurred. If no buffer steal occurred, 
the WAIT is issued if the |ORB has not yet been posted 1/0 
complete (CCBWAIT). 
NOTE: A “buffer steal” can occur during EXCPAD processing 
(while the PLH ECB is unlocked). A different task can enter the 
wait routine during processing and initiate a ‘buffer steal’. The 
wait routine then waits on the |ORBs of the task for which the 
EXCPAD exit has been taken. Therefore, when control returns 
from the EXCPAD exit, !/O must be restarted for the task that had 
its buffers stolen. Because there are no buffers on the queue, the 
1/O Manager returns to the Buffer Manager to restart the !/O requests. 


Licensed Material — Property of IBM 


Section 2. Method of Operation 


Module 
or label 


(KQIOD20 
WAITOOO 


WAITO10 


EXCPOO0O 


WAI!ITO20 


EXCPAQO00 
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Diagram EV2. I/O Manager: Wait for I/O Completion 









Module 
Is Error Analysis (IKQIOB) in control? or label 
No Yes ammmn>(° ) 
| WAIT020 
———> 8. Are there any I/O errors? 
Yes No 
9. Perform I/O error analysis. WAIT100 
ccB See Diagram EW, I/O Error Handler IKQIOB 
ae 
| ccanccs. §=[—————> 10. ‘Is there another CCB on the WAIT110 
Paks chain? 
No Yes om?) 
PLH BHD § 
PLHWAREA_ 11, Get the BHD and the CCB it 
aoa f [1 pointe 
— Se eee . Isa “‘buffer steal” to be done? 
iar) Yes No 
Notes for Diagram EV2 
7. If the “error analysis in control” indicator (CCBUEAIC) is set on After the first pass is made on the failing CCW string, the |/O Error 
(set on by 1/0 Error Handler, |KQIOB), control returns to IKQIOB Handler is called a second time to complete the error analysis. 
to complete error analysis. This occurs during error handling for 
a “piggy-back”’ 1/0 Opera hen. If the error occurred during the Write CCWs, the 1/O Error 
When an error occurs involving a “‘piggy-back” 1/O operation, the Handler will be called three times, once to retry the Write CCWs, 
write portion of the CCW string must be separated from the read once to retry the Read CCWs, and once to complete the error 
portion. The first call to the 1/O Error Handler causes the CCW analysis. 
ating to be split. The 1/0 Error Handler ns on the CCBUEAIC 11.-18, After all IORBs have been tested for I/O errors and any I/O 
bit in the CCB to indicate that error analysis is in control. It aprons have bean prccemed-(or attar‘a “butickatesl” hack 
then returns to the WAIT routine to retry the failing portion of the dunes cecatiel hae Fast ee are aeaileciel een 
CCW string and allow VSE ERP to process the error. i : 
8. The |ORB is tested for any 1/O errors; if none have occurred, the a Ifa Butter steal’’ is to be done, all CCBs in the chain and their 
Hast COB in the chain is orocetead th a similar macder associated control blocks are deallocated and returned to the 
. . control block free queue. For a “buffer steal,’’ the CCB chain 
9. If any errors were encountered, the 1/O Error Handler is called. pointer in the BHD is cleared to indicate the end of the 
NOTE: The bit CCBUERR (set in the CCB by BLDCP) not only CCB chain. 
indicates a “‘piggy-back” I/O operation, but also inhibits VSE 
ERP from retrying the error. Retry is not desirable the first time 
because if the error occurred during the read operation, then retry 
will rewrite the wrong data on the device when the Write CCWs 
are retried. 
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Diagram EV3. I/O Manager: Wait for I/O Completion 













































Modul 
Turn on the “buffer stolen” bit. a or tel 
14. Get the CCW block(s) and WANTee0 
deallocate them. (Put them ay, 
back on the free list.) 
a See Di El, Deallocat 
ee Diagram El, Deallocate a 
eee control block. DALBKOO0 
15. Get the I/O Data Block(s) 
and deallocate them. (Put them 
oy back on the free list.) 
Pen ee tes | See Diagram El, Deallocate a DALBKOOO 
ee es control block. 
16. Get the Fix List block(s) and 
fos ie eo ae deallocate them. (Put them 
back on the free list.) 
DALBKOOO 


See Diagram El, Deallocate a 
control block. 


17, Is there another CCB on the 
chain? 


No Yes 





Notes for Diagram EV3 


16. If a Fix List was not built (because execution is on a S/370), no 
deallocation takes place. 


19.-29. The buffer queues are searched for any buffer used for a 
replicated index read operation, and the count field (CCHH) of 
the record read is compared to the CCHH that was supposed to 
have been read. (The count field is read into the BCB.) This 
procedure checks the possibility of a bad seek occurring, particularly 
ona 2314 device. 

If a bad seek occurred, the error code (E65 — index error; E66 — 
sequence set error) is placed in the PLH, and the buffer in error 

is removed from the I/O queue (either scheduled or non-scheduled 
queue) and placed on the free queue. If this is the first buffer on 
the queue, then the second buffer on the |/O queue becomes the 
first buffer on the queue, and the pointer in either the scheduled 
or non-scheduled queue must be updated accordingly to match 
the pointer on the I/O queue. 
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Diagram EV4. I/O Manager: Wait for I/O Completion 









18. Get the CCB block(s) and deallocate them. 
(Put them back in the free list.) Clear 
the BHD CCB chain pointer. 


See Diagram El, Deallocate a control 
block. 



















BHDCCBCH 


BHDCCBCH 


20. Save anchor BCB address as the back pointer 
to the previous buffer. 










21. Is there another buffer on the chain? 


BUFNBCB 









Yes No eum Return 


Module 
or label 


DALBKOOO 


WAIT300 


WAIT310 


‘WAIT320 
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Diagram EVS. I/O Manager: Wait for I/O Completion 


BCB 


BUFFLAG2 
BUFVCCHH 


5 x 


[rinwanea | 7 

























22. 1s this buffer for a replicated index read 
operation on CKD? 


Yes No 
$ 


23. Was the correct CCHH (track) read? 





Yes No 


u 


BCB 


24. Clear the “piggy-back’’ CCB address 
in the BCB. 








PLH 






error, and store it in the PLH return 













code area. 
BHD 
See ag of for this buffer (scheduled or nonscheduled 
queue), 





Notes for Diagram EV5 


24. The BUFVCCB field must be cleared when !/O has been done for 
only some of the buffers. In this case, the write for a ‘‘piggy-back”’ 
buffer would have been done, but not the read. The BLDCP will 
redrive the buffer, but it will no longer be used for a ‘‘piggy-back”’ 
1/O operation. 
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BUFVCCB 


PLHWAREA 
WKARTINCD 


R9 
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Module 
or label 


WAIT330 


WAIT340 


WAIT350 
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Diagram EV6. I/O Manager: Wait for I/O Completion 




















Module 
or label 
BCB 
27. Delete the buffer in error from the 1/O ett el 
queue, and chain the next buffer (if any) WAIT360 





to the previous buffer (or BHD1STW). 









BHD 


BHD1STF 






28. Chain the buffers (if any) on the free queue 
to the error buffer, and chain the error 
buffer to the first buffer on the free queue. 











| BHOISTW —————$—— 29. Invalidate the buffer, and update the 
scheduled/nonscheduled queue pointer. 


om>(21) 





BUFFLAG1 








2.302 | VSE/VSAM VSAM Logic, Volume 2 Licensed Material — Property of IBM 


Diagram EW1. I/O Error Handler 









. Does the channel program contain 
any “‘piggy-back’’ 1/O operations? 








No 


+ 


2. Is “error analysis in control” (in the 
process of retrying a channel program 
that contained a ‘‘piggy-back”’ 

1/0 operation?) 


Yes 












Yes No 


4 


3. Was an error detected during the 
retry? 






Notes for Diagram EW1 


Note that the control block passed to the supervisor at EXCP time is the 
IORB, but VSAM has retained the use of labels beginning with the 
characters ‘‘CCB”, 


1. IKQIOB is called by the wait routine of the 1/O Manager (!KQIOA or 
|KQIOC) when an IORB is found that has an error or that is in the 
process of retry. The channel programs that are retried are those that 
have at least one buffer that is written out of by the first part of the 
channel program, and read back into by the second part of the channel 
program (‘‘piggy-back” 1/O). For these channel programs, the flag 
CCBUERR was set on by the !/O Manager. This flag causes the 
supervisor to suppress error recovery for these channel programs. 

Error recovery is suppressed because, in general, the supervisor may 
retry a channel program from the beginning. Retry from the beginning 
could cause the wrong contents of the buffer to be written out. 


The method of retry consists of splitting the channel program into 

two parts, the first containing the Write CCWs and the second containing 
the Read CCWs. Each of these is executed as an independent channel 
program, with the CCBUERR bit off. 


Any channel program received in error by IKQIOB (CCBUERR off) 
is scanned from the point the error occurred to determine which 
buffers are affected by the error. 


2. This step tests whether error analysis is in control. 
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Module 
or label 


IKQIO8 
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Diagram EW2. I/O Error Handler 







































Module 
4. Were any Read CCWs built in the or label 
channe! program? 
4 No mec ) 
5. Were the Read CCWs just executed? 
Yes No CCB 
6. Reset the indicator that showed a 108010 
retry of a channel program containing a 
a “‘piggy-back”’ I/O operation (“error 
analysis in control’). 
. Restore the first 4 bytes of the 
second CCW of the channel 
program. 
EEE Return 
Notes for Diagram EW2 
4. CCBRDCCW will have been stored by the |/O Manager the first time 6. The “error analysis in control’ indicator is reset because the retry 
a CCW related to read operations is built. This will be a Head Seek has been successfully completed for both the Write and Read CCW 
CCW for CKD devices, or a Locate CCW for fixed block devices. portions of the channel program. 
: ; : 7.-8. The first CCW of the complete channel program is used during the 
It is possible that a channel program flagged with the CCBUERR bit EXCP of both write and read operations. (This CCW is the Full Seek 
may not actually contain any Read CCWs. This can occur if: CCW for CKD devices or the Define Extent CCW for fixed block 
@ The channel program is broken due to the Read CCWs being on devices.) !n order to use this CCW during the read EXCP, the first 
a different cylinder (CKD devices) or CA (fixed block devices) 4 bytes of the second CCW are saved. The second CCW is then 
from the Write CCWs; or overlaid, and it is changed to a TIC CCW during the read operations. | 


@ There is a large number of Write CCWs; or 
®@ The partition is running out of storage in which to build channel! 


programs and their related control blocks The CCW op code of the CCW following the last Write CCW is saved 


so that it can be changed later to a NOP CCW. (This is required if 
5. During the retry, the Write CCWs are EXCPed and completed before the Write Check option is used with fixed block devices.) , 
the Read CCWs are EXCPed. To distinguish between these two 

separate EXCPs, the bit CCBURDCW is set when the EXCP is being 

done for read operations. 
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CCB 


CCBLWCCW 


Diagram EW3. I/O Error Handler 


CCWs 


2nd CCW 





last write 
CCW 






, Set the indicator to show a retry 
of a channel program containing 
a “piggy-back” |/O operation. 


° 


CB 


CCBCCW 
CCBCSW 
CCBROCCW 






in error. 


y 





D 


7 


— 
teurrent CCW al 


Read CCW? 


Notes for Diagram EW3 


9,-10. 


11.-18. 


The bit CCBUERR is reset so that the system ERP routines will 
retry any (/O errors that may occur when the channel program 
is redriven. The bit CCBUEAIC is set to indicate that error 
analysis is in control (the channel program has been split into its 
write and read portions), and that the I/O Error Handler is to 
get control after each redrive of the channel program by the 

1/O Manager Wait routine. 


This loop determines whether the error occurred during the 
Write CCWs or the Read CCWs. If the error occurred during the 
Write CCWs, then the full retry scheme must be used. If the 
error occurred during the Read CCWs, then the write operations 
have been completed successfully, and only the read operations 
need to be retried. 
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. Save the first 4 bytes of the second 
CCW of the channel program and the 
first byte of the CCW that follows 

the last Write CCW. 


. Reset the indicator that showed a 
channel program containing a 
“piggy-back” 1/O operation. 


. Get the addresses of the first 
CCW (current) and of the CCW 


. ls the current CCW the first 



















Q 
oO 
ao 


CCBSVLOC 
CCBSVOP 


Q 
?) 
ao 


CCBCOM1 
CCBUFLGS 





R7 
R6 
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Module 
or label 


10B100 


108110 
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Diagram EW4., I/O Error Handler 







Module 
RZ . 1s the current CCW the CCW or label 
in error? 
R6 No Yes 
| 
ccw . ls the current CCW a TIC CCW? 
RZ Yes No 
tourrent CCW 
R7 
. Get the current CCW address 
from the TIC CCW. 
. ts the current CCW a Search-ID 108120 


Equal CCW? (Does the current 
CCW have a status modifier 
function?) 


Yes No 
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Diagram EWS. I/O Error Handler 




































R7 
om come een comes emus 17. Increment the current CCW re 
~ address past the CCW that TICs 
~“ ~~ back to the Search CCW, 
~N 
~N 
18. Increment the CCW pointer to 
the next CCW. 
meee (12) ce 
19. Indicate that Read CCWs are 
being executed. 
20. Reset the indicator to show that 
the |ORB has been EXCPed. 
CCB 


CCBLWCCW SS 


21. Are there any Write CCWs? 


Yes No eemee>(27) 
y 


22. Change the second CCW in the 
channel program to a TIC CCW 
that TICs to the Read CCW 

portion. 
















CCWARG 


Notes for Diagram EW5 


19. 


20. 


21. 


22, 


The bit CCBURDCW is set to indicate that the read portion of the 
channel program is being redriven. 


The bit CCBERROK is set on by the EXCP subroutine within the 
1/O Manager just before the EXCP instruction is executed. This flag 
is used internally by VSAM to indicate that the channel program has 
been built (‘formatted’) and the EXCP has been issued. It must be 
reset at this point to indicate the channel programs must have the 
EXCP reissued. 


This test must be made because the buffer requiring a ‘‘piggy-back’”’ 
1/O operation may have only been started for the Write CCW and not 
read because the read has a different cylinder address (CKD) or CA 
(fixed block) than the write. As a result, when the |/O Manager 
redrives the BLDCP routine to handle the read operations, the bit 
CCBUERR will still be turned on even though there are no Write 
CCWs in the channel program. In this case, there is no need to modify 
or restore the channel program. 


In the case where there are Write CCWs, then the Seek (CKD) or 
Define Extent (fixed block) CCW, at the beginning of the channel 
program, must be followed by a TIC CCW to the Read CCW part of 
the channel program. 
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Module 
or label 


10B130 


10B200 
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Diagram EW6. I/O Error Handler 


ccB 
a 
ee ee 
ccesvoP 







. Restore the op code of the CCW 
following the last Write CCW, 
and turn on the command 
chaining flag in the last 

Write CCW. 





(27) 


24. Turn off the command chaining 
flag in the CCW following the 
last Write CCW, and make that 
CCW a NOP CCW. 










. Reset the indicator to show 
that the |ORB has been EXCPed. 





Make sure the indicator does not 
show that Read CCWs are 
being executed. 






. Point to the head of the CCB 
chain in the BHD as if it were 
an CCB chain pointer. 





R1 


teurrent CCB et ee 





. Loop through the CCB chain 
until register 8 points to the 
CCB chain pointer that points 
to the CCB currently being 

worked on. 





Notes for Diagram EW6 


23. 


24, 


25. 
26. 


27. 


28.-29. 


2.308 


This step restores the channel program so that the CCW following 
the last Write CCW will be correct for execution during read 
operations (it will no longer be a NOP CCW). 


This step breaks the channel program at the end of the write 
operations for the retry. 


See note for step 20. 


The bit CCBURDCW is reset so that the Read CCW portion of 
the channel program will be driven if the retry of the Write 
CCWs was successful. 


Register 8 is initialized to contain the address of BHDCCBCH 
field minus the displacement of the CCBNCCEB field from the 
beginning of the CCB control block. This is done so that the 
CCB control block pointer in the BHD will appear to be part of 
the CCB chain for search purposes. 


Find the preceding CCB control block in the chain. This is 
done because the |/O Manager Wait routine will load the pointer 
to the next CCB upon return from the !/O Error Handler. 
Therefore, register 1 must be initialized to ensure the current 
CCB block is the one that is obtained. 
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CCB 


CCBLWCCW 
CCW 
CCWCCH1 
CCB 
CCBCOM1 
CCBUFLGS 
R 



















8 
BHDCCBCH 


R8 
CCBNCCB 


Module 
or label 


10B210 


10B220 


10B230 
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Diagram EW7. I/O Error Handler 


CCB 


CCBSVLOC 


CCBLWCCW 









ccB 


Notes for Diagram EW7 


30.-31. See notes for steps 6 and 7. 


32. 
33. 


See note for step 21. 
See note for step 22. 






R1 
tCCBNCCB 


Cc 


CB 
CCBCCW 










. Set the pointer to the CCB 
chained to the current CCB. 










REE Return 





30. Reset the “error analysis in 
control” bit. 















31. Restore the first 4 bytes of 
the second CCW of the channel 
program. 





1st CCW 
2nd CCW 


R7 
Cc 





. Are there any Write CCWs? 


4 No 


33. Restore the op code of the CCW 
following the last Write CCW, 
and restore the command 
chaining flag in the last 

Write CCW. 
















CB 
CCBLWCCW 
Last Write CCW 


CCWOP1 


CCWFLG 





Licensed Material — Property of IBM Section 2. Method of Operation 


Module 
or label 
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Diagram EW8. I/O Error Handler 







CCB 


— 
| ccacsw | 
CCBCCW 












\ 
\ 





. Clear the error flag accumulation 
byte in the PLH Workarea. 


PLH 


PLHWAREA 
WKATEMP 
















Yes No 





was found. 







Notes for Diagram EW8 


36. 


36.-37. 


38. 


2.310 


WKAERRSW uses the same bit definitions as BUFERFLG in 
the BCB. 


The “error CCW found” bit (IOMERP2) is used to control the 
resetting of the “write” bits in those buffers that have been 
successfully written before the error occurs. 


NOTE: This is done because the Buffer Manager will attempt to 
redrive the remaining buffers whose I/O did not complete due 
to the error. For successful write operations, however, the 
“write” bits are turned off so that the buffers will not be 
rewritten. 


The pointer to the table is backed up by the length of an entry 
to establish correct positioning because the next step will 
increment the pointer to the next entry. 
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34. Get the address of the CCW in 
error, and save it for determination 
of buffer error handling. Get the 
address of the first CCW in the 
channel program. 


. ts the CCW currently being 
processed the error CCW? 


. Indicate that the error CCW 


38. Initialize the pointer to the 
table of CCW op codes. 


















Module 
or label 
108310 
WKAERRSW 
10B320 
PLH 
PLHWAREA 
WKAERRSW 
R8 
10B330 


Licensed Material — Property of IBM 


Diagram EW9. I/O Error Handler 






39. Increment register 8 to point 
to the next entry in the CCW 
op code. 


40. Does this table entry apply to 
the current CCW? 


Yes No 


4 


41. Increment the CCW pointer by 
the amount specified in the 
table entry. Get the entry that 
points to the correct subroutine 
for the CCW, and branch to the 
subroutine. 










lf the CCW isa 






TIC 






Read/Write 






NOP 






none of the above 


ah 








Notes for Diagram EW9 


39.-40. The table CCWTAB1 is searched until an entry is found to match 
the current CCW. The entry contains a displacement into the 
vector branch table (CCWTAB2) to determine the correct 
subroutine to be used for handling the current CCW. 


41. This step sets the pointer to the current CCW plus the value 
specified in the CCWTAB1 table. For TIC, Read, and Write 
Data CCWs, there is no change. For the other CCWs, the 
pointer is positioned to the next CCW (except for SIDE and TIC, 
then positioning is to the CCW following the TIC). Step 66 will 
then increment the pointer to the next CCW. 
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R8 


TCCWTAB1 
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Diagram EW10. I/O Error Handler 


42. Get the address of the next 
_ CCW from the TIC CCW. 


BHD BCB 


BHD1STW BUFCBAD 


Write CCW or Read CCW | 








43. Scan the BCB queue for the 
buffer the Write or Read CCW 
referenced. 


R7 CCW 


tocw CCWARG 


AMDSB 


AMDCINV 


44, Was a BCB found? 





No Yes 


4 


45. Set internal error code E43 
indicating a VSAM logic error. 


Notes for Diagram EW10 


42. When a TIC CCW is encountered, the address specified in the 
TIC CCW is used as the pointer to the current CCW. 


43. This check is made: 
BUFCBAD <CCWARG <BUFCBAD+AMDCINV 


If this condition is satisfied, the buffer is referenced by the 
current CCW. 


44.-45. A‘“‘no” condition should not occur here; if it does, error code 
E43 (VSAM logic error) is issued. 
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PLH 


PLHWAREA 
WKAERRSW 
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Module 
or label 


10B350 


10B400 


10B430 


Diagram EW11. I/O Error Handler 


PLH 


PLHWAREA 


Write CCW or Read CCW (con't 


















46. Is the current CCW the CCW in error, 










pea ss kot a — or is it past the error CCW? 
WKAERRSW 
eel ae 


y 


47. Is the current CCW a Read CCW? 


4 Yes 


Q 


CW 


es oe oe ee oe 






48. Reset the “write” bits in the 
BCB. 


BUFFLAG1 
BUFERFLG 











49. Indicate that the BCB is not 
complete. 


CB 


BUFFLAG1 ——_— 50. Was the buffer to be written? 





Yes No 


Notes for Diagram EW11 


46.-48. All buffers associated with CCWs preceding the error CCW can 
be placed on the free queue, and al! buffers associated with CCWs 
following the error CCW will be redriven. 
If the error CCW was a Read CCW, then any buffers that were to 
be written were processed successfully, and the ‘’write’’ bits 
(BUFCMW, BUFCFMT, and BUFPFMT) are reset so that they 
will not be rewritten during the redrive of the 1/O operation. 


49, The “BCB not complete” bit (BUFENTCM) is set to indicate 
that the buffer has not had any |/O done for it. It will be 
redriven by the Buffer Manager. 


50.-51. If the buffer was to be written, the “must write” bit (BUFCMW) 
is turned off, and the ‘‘write ignored” bit (BUFWRIGN) is 
turned on. This causes the Buffer Manager to redrive the write 
operation for this buffer and ensures that any old writes for the 
current CCW chain are completed before returning to the user. 


Licensed Material — Property of IBM Section 2. Method of Operation 


Module 
or label 


1OB500 


10B510 
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Diagram EW12. I/O Error Handler 


Write CCW or 


51. Turn off the “must write” bit, 
and turn on the “write 
ignored”’ bit. 







BCB 


BUFFLAG1 


















CB 


BUFFLAG1 --— ——— — — 


52. Was the buffer to be read? 
Yes No 


53. Turn off the “read” bit, and 
PLH turn on the “‘read ignored” bit. 







PLHWAREA 


WEAERREN 54. Has the “t/O error’”’ bit been 


set in the BCB for the buffer? 


i Yes 


55. Set the ‘I/O error” bit on, and 
OR the error-indicating byte 
into the BCB error flag byte. 
















PLH 
PLHWAREA 
WKAERRSW 



















56. Does the index component 
reside across a mixed device 
class? 






PLHWAREA 
WKAERRSW 


BUFERFLG 





BCB 






AMDATTR2 


Notes for Diagram EW12 


52.-53. 
9 


54.-55. 


56.-57. 


2.314 


\f the buffer was to be used for a read, the ‘‘read’’ bit (BUFCRRD) 
is turned off, and the “‘read ignored’’ bit (BUFRDIGN) is turned 
on. This causes the Buffer Manager to redrive the read operation 
for the buffer and ensures that any reads for the current CCW 
chain are completed before returning to the user. 


If the buffer is the one associated with the error CCW, then the 
“1/0 error” bit (BUFEIOER) is turned on, and the error 
indication(s) is ORed into the BCB. 


If the index component crosses different device classes (high-level 
index on CKD and sequence set on fixed block, or vice versa), 
then the device class bit (AMDARCH) is set to the original 

value when the !/O Manager was called. 


Module 
or label 


1OB600 


10B610 
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Diagram EW13. I/O Error Handler 
























































index record? 


Module 
AMDSB or label 
57. Reset the device class bit to ee Sti al 
the setting when the !/O AMDATTR2 
Manager was called. aes 
RS 
58. Clear the register for error eee or etal 108620 
R7 ccwWw code calculation. 
eee _— 59. Was there a read error? 
CCWFLAG 
he ne No Yes 
4 R5 108630 
range of values for write 
operations. 
BCB 
BUFSSRCD _—— 61. Is the error in a sequence 10B640 
Pee saga 
No Yes 
RS 
. Increment the code beyond the 
sequence set range of values. 
AMDSB 
AMDINDX -_— 63. Is 1/O being performed to an jOB650 


No Yes 


Notes for Diagram EW13 


58.-64. These steps compute an index into a table of return code values. 
The first half of the table contains read errors; the second half 
contains write errors. Within each half the error codes appear 
in the order: sequence set, index (not sequence set), data. 
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Diagram EW14. I/O Error Handler 


ae Write or Read CCW (con't) 
 ———— 64. Increment the code to the data 


range of values, 


RS RTNCDTAB 
65. Save the error code in the PLH 
Workarea. 


R7 
. Point to the next CCW. 









. Point to the head of the BCB 
queue in the BHD as if it were 


BHD a BCB chain pointer. 


BHOSKDQ 
BHONSKDOQ 










. Set up register 5 to point to 
the queue header (scheduled 
or non-scheduled queue) that 

is the same as the |/O queue 

header. 





. Save the pointer to the 
preceding BCB. 


Notes for Diagram EW14 


67.-77. The NOP CCW indicates the “end of CCW chain” (all CCWs have 
been processed). This routine updates the status of the BCBs on 
the 1/O queue when an error has occurred, If a read or write 
error occurred on a BCB, then that BCB is moved to the free 
queue. If the BCB is flagged ‘‘not complete’’, but there was no 
read or write error, then that BCB is left on the I/O queue but is 
not marked valid. 


67. Register 8 is initialized to contain the address of the BHD1STW 
minus the displacement of the BUFCHAIN field from the 
beginning of the BCB. This is done so that the BCB pointer in 
the BHD will appear to be part of the BCB chain for search 
purposes. 
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Module 
RS or label 
Pp 


LH 


PLHWAREA 108670 


WKARTNCD 
R7 


tccw 






10B680 






a 


6 
1{0B700 









>] 


5 









Dd 


7 


10B710 
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Diagram EW15. I/O Error Handler 


NOP CCW (con't) 
7 


0. Are there any more BCBs? 


Yes No E> Return 


+ 


71. Was the I/O error on this BCB? 





BCB 


| 
~ 














R7 
BCB 


BUFNBCB 













No Yes 
+ 


72. Dequeue the BCB from the 
1/O queue. 




















R6 BHD 
flr _— 73. Enqueue the BCB on the free aaa 
BHD BHD1STF 







BCB 
BUFNBCB 


BUFFLAG1 











74, Make sure the buffer is NOT 
flagged valid. 







Notes for Diagram EW15 


70. Register 6 points to the next BCB (if one exists). Otherwise, control 
returns to the |/O Manager. (See Diagram EV, 1/O Manager: Wait 
for {/O Completion.) 


73. The ‘‘not complete’ flag (BUFENTCM) and “write or read’’ error 
flag (BUFEIOER) were set during the scan of the CCW chain in 
steps 49-54. 
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Module 
or label 


10B720 
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Diagram EW16. I/O Error Handler 





























Module 
RG BCB or label 
[se cetet eee aJeee 75. Is the buffer for a read-ahead 
BUFFLAG2 operation? 
foe n ood . 
Yes No —- Reread 
4 BCB 
76. Flag the buffer as valid 
despite the error. aa 
R5 R5 108730 
as Pass 77. Set the queue header oe 
(scheduled or non-scheduled 
BHD 7 queue), which is the same as BHD 
ee Die the |/O queue, equal to the 
| BHDISTW | new 1/0 queue header. [ts ol 
ence] — 


cores 


Notes for Diagram EW16 


76. Errors on read-ahead buffers are checked for by the Get Next routine 
(JKQGNX00) or by the Read-Ahead Interface routine (RDAHI) of 
the Buffer Manager (1KQBFAOO). 


77. The header of the scheduled or non-scheduled queue (whichever 
was passed on entry to the 1/O Manager as the !/O queue) is 
updated from the |/O queue header. (The |/O queue header may have 
been changed by moving buffers to the free queue.) 
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Diagram FA1. Mount Volume 











R10 Ri 


1 






R6 





. Obtain and initialize work area. 


. Requested volume to be dynamically assigned ? 
No Yes 


' 


3. Set up control blocks and save volume serial 
numbers. 













EDBMNT 
EDBPARDB 


AMDSB Molume list 8 
AMDPVOL VOLSERNO 


VOLMOUNT 
VOLPUBIX 


Work area 16) 
NVOLSER 
OVOLSER as 


Work area 


NVOLSER 
OVOLSER 
JIBSMAD 























4. Is any volume online? 


Yes No ap>(:) 
¥ 


5. Is the requested volume the same as the online 
volume? 


No Yes a>) 
¥ 


6. Load (via CDLOAD macro) routine to complete 
outstanding 1/0. 









Address of 
work area 

















Bis R15 
See Diagram FC, Purge Buffer. 
. 
~ 
a ~~ 
Work area 


7. Return code=0? 


Yes No ae) 
y 


8. Indicate to the supervisor that I/O is no longer 
allowed to these extents, and turn off “volume 
mount” flag for volume to be demounted. 


JIBSMAD 
OVOLSER ~ 
. 
_ 





| requested 
volume 
serial number 


RO 


work area 
address 


. Mount volume. 
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Module 
or label 


IKQEOV 


INITCTLB 
FINDLUB 


IKOPBF 


DEMOUNT 


t{KQASNMT 
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Diagram FA2. Mount Volume 










Work area 


NVOLSER 
OVOLSER 










Is correct volume mounted? 


Yes No em (0 ) 
4 


_— 11. Indicate to the supervisor that 1/O is allowed to 
these extents, and turn on “volume mount” 
flag for volume mounted. 


amp 


Mount and assign requested volume. 





10. 







R11 


R6 R10 


If the volume was demounted, indicate to the 
supervisor that I/O is no longer allowed to 
these extents and turn off “volume mount” 
flag for the volume demounted. 















Indicate to the supervisor that |/O is allowed 
to these extents, and turn on “volume mount” 
flag for volume mounted. 
Work area 


Free work area and restore catler’s registers. 


EDBPARDB 







requested 
volume serial 
number 


Return 


Module. 
or label 


MOUNT 


KQASNMT 
DEMOUNT 


MOUNT 


2.320 | VSE/VSAM VSAM Logic, Volume 2 Licensed Material — Property of IBM 


Diagram FB1. Extend EDB 


Module 
or label 







Work area 


. Obtain and initialize work area. IKQEDX 








Catalog lists area 


CPL CATVOLGP 
FPL CATVOLNG 





. Set up the CPL and FPL and call catalog 
LOCATE function to obtain all extents of the 
data set. 


LOCEXTNT 










. Check each key range to see if more extents 


ARDB Catalog Work area have been added. 


[aoe ess) a 





. Check if more extents were acquired for the 
same key range. 






ARDB 
[Lk —— . Does a volume entry already exist for extents? 
aN 
\ No Yes om>(0 ) 
4 


6. Does the ARDB have space enough for another 
volume entry? 


Notes for Diagram FB1 


2. LOCEXTNT is called and, in turn, calls the catalog LOCATE 
function to obtain all extents of the data set. If a nonzero code 
is returned in register 15 by the catalog LOCATE routine, an error 
code is set in the work area by LOCEXTNT to specify what error 
condition occurred before exiting to the mainline routine. 


Steps 2-11 are processed twice if both data and index AMDSBs 
exist — first for the data, then for the index. 


3.-4. Each of these steps constitutes a small loop within the major loop 
for each AMDSB. 


After each of the checks in steps 3 and 4, steps 5 through 10 are 
processed. That is, whenever extents are found that belong to 

the key range being processed, associated ARDBs, EDBs, and volume 
entries must be created for them, if they do not already exist. 
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Diagram FB2. Extend EDB 






























ARDB oe 
or lal 
=—— . Obtain storage and build a new ARDB, and free 
storage occupied by old ARDB. RELREPNO | ARDS Serene 
. Add volume entry to ARDB. 
BLDARDB 
Work area 
. Search for new extents on this volume. BLDEXTNT 
. Find the address of space in which to build CALCORE 
EDB(s), and build them. Sree ee 







Work area 


7 
oe] . Is the index AMDSB present? 
Yes No cmm>(3) 


$ 


12. Have we processed the index AMDSB? 


Yes No emp (2) 
{ 


13. Free work area, restore caller's registers. 







R15 


Work area 





Return 


Notes for Diagram FB2 


7. If there isn’t enough space in the ARDB to add a volume entry, 
GETCORE is called to obtain storage, copy the old ARDB, and free 
the storage occupied by the old ARDB. 

10. To locate and build EDB(s) for the new extents, BLDEXTNT is 
called and, in turn, calls CALCORE to get the address of space in 
which to build the EDBs, EDBBUILD to build the EDBs for the 
new extents, and FINOLUB to find the LUB index in order to 
turn on the mount flag. 
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Diagram FC1. Purge Buffer 
































Module 
or label 
AMBL 
AMBLPLHF — ee om . Point to the PLH. (KQPBFOO 
PLH . 
PLHDBHD 
BHD 
BHDSKDQ —_——_—— . Wait on the scheduled queue. PBFO40 
See Diagram EA, !/O Manager: Mainline. 
ale i IKQIOA/ 
aie IKQIOG 
rn | BHOISTW | 
. Transfer buffers from the scheduled queue to BHONSKDQ PBFO46 
BCB the free queue. 
BUFCRRBA 8cB 
BUFCWRBA 
BUFCVAL 
5. Isolate write requests for mounted volumes. PBF110 


BHD 





BHO 


| BHONSKDO | 


BCB 


PBWAREA 
PBHOLDQ 


BHDNSKDO 


BCB 





BUFCFMT 
BUFCRRD 


EDB 
EDBMNT 


EDBLORBA 
EDBHIRBA 













Notes for Diagram FC1 


1. On entry, |/O Manager status from the PLH is saved in a work area 
(PBWAREA) provided to Purge Buffer by its caller (EOV). This save 
is necessary because the I/O Manager will be invoked recursively by Purge 
Buffer. (The |/O Manager calls EOV, which calls Purge Buffer, which 
in turn calls the 1/O Manager.) 


The design of Purge Buffer assumes single string processing. This 
restriction is enforced by the open routines. For this reason, Purge 
Buffer only concerns itself with a single PLH. 


2. The first time through this routine, the index BHD is gotten (if there 
is one). In all other cases the data BHD is gotten. 


3. The scheduled queue contains !/O that has been started but not waited 
on (if any). 


4, The free queue contains buffers that are available for use, regardless 
of whether their contents are valid. 


While transferring buffers from the scheduled queue to the free queue, 
any buffer for which a read has been done gets its current RBA 
updated to the RBA of the control interval read and is marked valid 
(BUFCVAL). 


5. A queue containing only requests (that have not been started) for 
write 1/O to mounted volumes is constructed. This queue is a subset 
of the requests that had been on the nonscheduled queue (queue of 
1/O requests not yet started). The remaining requests from the 
nonscheduled queue are placed on a temporary Purge Buffer queue 
(the hold queue, PBHOLDQ). 
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Diagram FC2. Purge Buffer 


2.324 







BHD 
BHONSKD 
BHONSKDQ 












6. Write |/O for the mounted volumes. 








See Diagram EA, |/O Manager: Mainline. 





BHD 


BHONSKDQ 


BCB 
BUFNBCB 
BUFCFMT 
BUFCRRD 


BUFPURG1 















= 7. Check for errors, and merge the |/O buffers 
with the other buffers on the hold queue. 







PBHOLDQ 





. lsolate read requests for mounted volumes. 






















BHD ye 
[PexHotoa | 
Pa . Read |/O for the mounted volumes. 
BCB 7 
7 3 See Diagram EA, |/O Manager: Mainline. 
PBWAREA 
eD8 Fr, 
y 
BHD 
PA 
7 L SHpieTW 5. 






BHD 


BHONSKD 


BHDNSKDQ 


Module 
or label 


PBF190 


tKQIOA/ 
IKQIOC 


PBF 200 


PBF230 


PBF300 


IKQIOA/ 
IKQIOC 
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Diagram FC3. Purge Buffer 













HD 


BHD1STW 


BCB 





. Check for errors, and merge the 1/O buffers 
with the other buffers on the hold queue. 


BHD 
BHONSKDQ 


BCB 


PBWAREA 


PBHOLDQ 







BUFCRRBA 






PBWAREA 


PBHOLDQ 








Restore the BHD so 1/O for the unmounted 
volume will get done later. 











a 
PBWAREA - 
PBHOLDQ 








12. Is this an index whose buffers have just been 
purged? 


No Yes CETTE 2 ) 








—_ 
— 
———— 


> 
Fi 

oO 

2) 

co 


AMDINOX BHO 
BHONSKD 
BHONSKOQ 












Return 


Notes for Diagram FC3 


11. The nonscheduled queue, as restored, will contain all buffers that 
were previously on it, but the flags indicating that !/O is requested 
will have been turned off for requests to volumes that were mounted 
before the EOV call. The |/O Manager ignores buffers with no I/O 
requests on them. 


12. If an index has just been processed, it is necessary to make another 
Pass to process the data component. 
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Module 
or label 


PBF310 


PBF330 
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Diagram FD1. JRNAD Exit: Journal a Transaction 








*Diagrams BB, BC, BK 





. Save registers. PLHBSAVE 


_PLHJRNSV 











. Determine the calling routine and branch 
accordingly: 


IKQVSM 
IKQMDY 
IKQCIS 
1KQCAS 
IKOSRG 
IKOSRU 













PLHAJRN 


JRNDS 
JRNFRRBA 
JRNOLEN 
JRNTORBA 
JRNEXIT 













MUN 


RPL 


RPLREQ _—_— 









. Determine and insert the request-type code. 









. Calculate and insert into the parameter list: 














a. “From’’ RBA 
b. “To’’ RBA 
c. Number of bytes moved 


. Insert request-ty pe code. 


ACB 
EXLST ACBEXLST -—-—— 
EXLUJRNE -_--—--—- - - 


. Get the address of the exit list. 


. Is the user’s exit to be loaded? 


Yes No 





Notes for Diagram FD1 


1, Registers 14, 0, and 1 are saved in field PLHJRNSV. 
Registers 2-12 are saved in field PLHBSAVE. 


2. IKQAIX also calls JRNAD, but it uses the 
IKQVSM calling interface. 
Depending on the caller, the following parts of 
step 4 are executed: 


IKQMDY 4a, 4b, and 4c 

IKQCIS 4aand 4b 

1KQCAS 4a (first pass) 
4b (second pass) 

IKOQSRG 4a 

IKQSRU 4c 
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Module 
or label 


IKQJRN 


. JRNO40 


JRNOSO 


JRN150 


Diagram FD2. JRNAD Exit: Journal a Transaction 











Module 
8. Load the user’s exit routine (CDLOAD). em 
9. Was load successful? 
Yes No mma 1) 
U 

PLH 10. Exit to user routine. Ey saatiha 
11. Restore registers upon return from user. JRN160 
12. Return to calling module. JRNATN 
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Diagram FE1. Defer Writing of Buffers 






















Module 
or label 
BcB 
<<< = . Get.address of the BSPH. ece (KQBFB10 
. Indicate that buffer contents are modified. 
—— 7 og oy 
Pd 
. Increment the count of modified buffers. BSPH BFB1I0 
BSPHMDBN 
. Invalidate all other buffers in the BSPH which aes BFB130 
have the same RBA and data set identifier. 
BCB 
_BUFFLAG_| 
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Diagram FF1. WRTBFR: Write Deferred Buffers 


Module 
or label 





PLH 
PLHILTM 















1. If this is a write buffer request for a specific IKQBFB20 

transaction identifier, set up a test mask with this 

identifier; otherwise set the test mask to 
ww. PP’. 


X'FF 
















BFB220 





2. Are there any modified buffers in the subpool? 


{ No eeem> Return 


8FB290 
SCMBSPH 










BSPHMOBT 


3. Is this a write buffer request for 
a least-recently-used buffers? 


Yes No emmp>(5 ) 
y 


4. Calculate, from the specified percentage, the 
number of buffers to be searched. 










PLH 








SCM110 





. Search the subpool for a modified buffer 
(belonging to the specified data set if a data set 
identifier was supplied). 









. Write the buffer to disk. 
See Diagram DE, Do I/O. 











. All buffers handled? 


Yes No emm>(5) 


BFB238 
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Diagram FF2. WRTBFR: Write Deferred Buffers 


2.330 


PLH 


PLHIDS 


BSPH 


BSPHNBSP 


AMDSB 


AMDATTRi1 
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Module 
7s or label 
8. Is this a write buffer request for a specific data 
set? 

No Yes 
9. Is there another subpool to scan? 

j No Se Return 

10. Is this a key-sequenced data set? BFB240 


4 No E> Return 


11. Find the BSPH for the subpool containing the 
index buffers. 


12. Have the index buffers already been handled? 


Return 
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Diagram FG1. Get a Scratch Buffer from the Resource Pool 





























Module 
or label 
1. Are there any free BCBs in the BSPH? IKQBFB30 
Yes No 
2. Get address of next free BCB. BFB316 
3. Does the buffer connected to this BCB have 
valid contents? 
ee: , «No emm>(° ) 
4. Are there more free BCBs? BFB320 
\ i No ommm>(2) 
5. Are there any modified BCBs in the BSPH? 
Yes No 
6. Get address of the first BCB that is not in use. BFB325 
7. |s this a modified BCB? 
Yes No 
BCB Buffer 4 sauaai 
or 8. Write the buffer to disk. IKQBFAS5O 





See Diagram DE, Do 1/0. 
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Diagram FG2. Get a Scratch Buffer from the Resource Pool 


PLH 


PLHSTBCB 
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11. Is BCB stealing permitted? 


14, Initialize the BCB. 


BSPH Module 


9. Update the counters in the BSPH. entapel 


BSPHCRBN 


10. Place BCB at top of the use chain and BSPHMOBN 


initialize it. 


BSPHUTOP 
a Return 


BSPHUBTM 
BFB360 





Yes No No BCB R14 


available 
Return address 
+4 


12. Try to steal a BCB from another string. 


13. Was steal attempt successful? 


Yes No No BCB 


| available’ 


BFB375 


Return 
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Diagram FH1. Return a Buffer to the Resource Pool 





v 
rc 
i 





1. 


PLHBCPLH — oe ee oe oe oe 





ts this a path-entry PLH? 
Yes No mee (6 ) 


2. Free the AlX-PLH and return the AIX buffers to 
the resource pool. 







AIX-PLH 


PLHAUSE 
PLHUSE 
PLHHRPL 











AMBL 









3. Is there an upgrade set? 


Yes No emme>(5 ) 
4 


4. Free the PLH for the upgrade set and return the 
buffers held by each member to the resource 
pool. 










Upgrade set 
PLH 


PLHHRPL 
PLHUSE 
PLHAUSE 


BHD 


























. Return the buffers for the path entry to the 
resource pool. 
















. Return the buffers for the base cluster to the 
resource pool. 





Return 


Notes for Diagram FH1 


2,4, 5, and 6, If the data set is share option 4 (AMDSHR on), the buffers 
are invalidated. 
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Module 
or label 


- IKOBFB40 


BFB420 


BFB440 


BFB420 








BFB450 





2.333 


| Diagram FI1. Search Resource Pool for Requested RBA 





















Module 
or label 
R6 
sli rae —— © 1. |s this a request for RBA search with copy IKOBFBEO 
function? 
i No emma: ) 
2. Is the control interval already held in exclusive 
control? 
R14 
No Yes Error 
OW turn eae pn 
Al Parameter list address +8 


3. Search for the requested RBA. 





PARMABA —— 


































BcB . BCB for the requested RBA for correct data set 
eo found and buffer valid? 
y; Yes No Error ae 
BUFCWRD return | Return 
/ § address +4 
/ 
5. Copy function requested? BFB55O 
BUFCVAL Pe ee Ne 
BUFCURBA / 4 ae 
Esk oe 
Re 7 6. Place BCB at top of use chain. BFBSS5 













7. Update counters and indicate “buffer in use” by 
setting BUFUSE to X'FF’. 


SEE Return 







Requested buffer 





. Copy contents of buffer. BFB580 


9. Copy contents of BCB. E> Return 
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Module Prologues 


Section 3. Program Organization 


VSAM program listings are the key to VSAM’s organization. You get into 
the listings from the method of operation diagrams. Once you have located 
the module or routine name that interests you in the diagrams, you are 
ready to turn to the listing to find the additional information you require. 


Each VSAM module listing begins with a description of the module, called 
the module prologue. The information contained in VSAM prologues is 
described in the topics that follow. 


Module name: The external procedure name of the module (for example, 
IKQIOA). 

Descriptive name: The English name of the module (for example, I/O 
Manager). 


Status: The version and release level of the module. 


Function: A brief step-by-step explanation of the functions performed by 
this module. Function is divided into steps so that you may more easily 
locate the routine responsible for each step. 


Notes: A generalized heading that includes (1) any dependencies, for exam- 
ple, CPU model or features, that will affect the operation of this module, (2) 
any restrictions that apply to this module, (3) symbols used to represent 
registers and register usage, (4) symbolic name of the maintenance area for 
this module and whether the maintenance area is used or reserved, and (5) 
any special terms and acronyms that are used within this module that are 
not necessarily used elsewhere in the documentation. 


Module Type: A description of the type of this module (for example, proce- 
dure or macro) the name of the compiler used/required to create this mo- 
dule, the amount of storage required by this module for executable code and 
associated data, and the attributes of the module (for example, reentrant or 
read-only). 


Entry point: The name of the point at which control can enter this module, 
the conditions of entry, the calling sequence by which control was given, 
including any parameters passed and the names of modules that may enter 
at this entry point. 


Input: A description of anything this module gets or references, such as 
registers, control blocks, or data. The means by which this module gains 
access to the input is included. 


Output: A description of registers, control blocks, and data areas at output; 
any messages issued as a result of this module’s processing are included. 


Exit-normal: A description of conditions at and reasons for normal exit from 
this module, including the names of modules called by this module. 


Exit-error: A description of conditions at and reasons for any error exit from 
this module. 
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Routine Prologues 


External references: A list of modules, data areas, etc., defined outside of or 
accessible outside of this module. 

Tables: A list of all local tables and work areas, that is, data areas built and 
used only within this module. 

Macros: A description of system macros used by this module. 

Change activity: A list of any change activity to this module. 


The numbered steps in the module prologue FUNCTION heading are your 
link to the routine prologues. Routine prologues contain (1) an expanded 
description of the processing steps shown in the module prologues, (2) input 
to the routine, and (3) output from the routine. 


Program Structures and Catalog Program Flowcharts 


The following group of program structures shows how the VSAM program 
is organized. These structures link modules together from the time a macro 
instruction is issued by the user program to the time that control exits from 
VSAM. The structures are ordered by user-issued macro instructions and 
the verify function in a way similar to the organization of method of opera- 
tion diagrams. In addition, program structures are also shown for significant 
subfunctions required to complete processing of a macro instruction. The 
subfunctions included in this volume are buffer and 1/O management. 


Figure 3.1 shows the symbols used on the structures and describes their 
meanings. 


Indicates that a module is called and returns to calling 
module 


Indicates that a module does not return to calling module 


Indicates that a module is called under certain conditions 
and then returns to calling module 


Indicates that a module is called under certain conditions 
and does not return to calling module 


UPPER CASE Indicates that a module is executed and calls one or more 
modules before returning 


lower case Indicates that a module is executed and then returns to 
the calling module 





Figure 3.1 Graphic symbols used in program structures 
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IKQBF A00 IKQIXS00 IKQSCN IKQGNX00 IKQKRD IKQBLD IKQSFT IKQCISOO IKQLCD IKQSRU IKQBFA00 IKQJRN 
buffer manager jndex search scan CNV get nextCNV key range RDF build shift CNV split locate direct spanned record buffer manager JRNAD exit 
deter mination update manager 
IKQBFA00 IKQBFA00 
buffer manager buffer manager 
1 ‘ ! 
IKQBFA00 IKQIXS00 IKQSCN IKQCISOO IKQLCD IKQJRN IKQBFA00 
buffer manager index search scan CNV CNV split locate JRNAD exit buffer manager 
direct 
user routine 


IKQBFA00 
buffer manager 
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IKQINT is called 
IKQUPG is called 
IKQJRN is called 


IKQBFB is called 


IKQRQC is called 


IKQBFAO00 is called 
IKQLCD is called 


IKQSCN is called 


IKQLCN is called 


IKQKRD is called 


PUT ADD 


if LSR is specified, to initialize a PLH 


if an upgrade set exists 


if the JRNAD exit is active, to inform the user of data 


set changes 


if LSR is specified, to return control blocks to the 
buffer pool 


if path processing and LSR are specified, to assign a 
PLH to the base cluster 

if an upgrade set exists and LSR is specified, to 
assign BCBs 


for addressed processing 


for keyed processing of an RRDS 
— if direct 
— if skip sequential 
— if sequential, after exceptional conditions 
or to obtain exclusive control 
for keyed processing ofa KSDS_ 
— if direct 
— after exceptional condition 
— if PLH is not positioned 
— to obtain exclusive control 


in order to find the correct insertion point for 
keyed processing of a KSDS 


whenever the PLH is positioned to the previous 
record for keyed sequential processing of a KSDS or 
an RRDS 


to determine keyrange changes for a keyrange data set 


® 
© 


©@@®@@O®@ © 


IKQSFT is called 


IKQCISO0O is called 


IKQLCD is called 


IKQSRU is called 
IKQBFAO00 is called 


IKQJRN is called 


IKQCIS00 is called 


*Logical errors 


| 


in order to make room for the record when no CNV 
split is necessary 


if a control interval split (or pseudo split) is necessary 
— if actual CNV free space is too short for 
changes (real split) 
— for CNV insert processing (pseudo split) 
except for an ESDS (see Note) 
— if first data load request (pseudo split) 
— if keyrange change (pseudo split) 
— if RRDS and insertion beyond preformatted 
limit (pseudo split) 
Note: For CNV insert processing of an ESDS, IKQMDY 
carries out the pseudo-split internally. 


in order to reposition the PLH when insertion is to be 
retried after a CNV split. For keyed non-load processing 
only. 


in order to insert spanned records 


if immediate writing is required for user buffer process- 
ing or direct requests without the option NSP 


if the JRNAD exit is active, to inform the user of data 
set changes 


if there are not enough CNVs in the control area to 
accept the spanned record 
for the insertion of each segment 


E 36 sequence error 

E 37 duplicate record 

E 43 VSAM internal 
logic error 


ole 
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PUT UPD 
macro 
IKQVSM 
request driver 
pp LU 
a =. oe 
[Sees eee eee ea a 
“| | 
(normal) (error)* (error)* 
l 
IKQRQA IKQUPD | | | 
ae ’ update user’s program IKQERH IKQERX 
Pee ST fet ete ay eke er ee he — | 1 error handler error exit 
ee eee 
> 
user's program 
| t 
IKQRQB IKQLCN IKQBF A00 IKQMDY 
request locate next buffer manager modify 
analyzer 2 . IKQLCN 
eee eo eee, locate next 
7 aS a ns | 
a ee ee’ cere mim | | 
© (10) (end of CNV) 
(8) 
' | 
IKQGNX00 IKQBLD IKQSFT IKOCISOO IKQSRU IKQBFA00 IKQGNX 
get next CNV RDF build shitt ae split Kor sieae spanned record buffer manager get next CNV 
update 
arias pel agg crea a | 
IKQBF A00 IKQJRN IKQBF A00 IKQIXSO0 IKQSCN IKQJRN IKQBFA00 IKQCISOO IKQSFT IKQBFA0O IKQBF A00 
buffer manager JRNAD exit buffer manager index search scan CNV JRNAD exit buffer manager CNV split shitt buffer manager buffer manager 
user routine IKQBFA00 user routine 


buffer manager 
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IKQROB is called 


IKQLCN is called 


IKQBFA00 is called 


IKQLCN is called 


IKQBLD is called 


IKQSFT is called 
IKQCISO0 is called 


PUT UPD 


for the initial positioning of the PLH for a sequential 
standalone update (user buffer processing only) 
if a specification error was detected 


for sequential standalone update (user buffer 
processing only), if the PLH is positioned to the 
previous CNV 


in order to get the CNV to be updated for a direct 
standalone update 


in order to advance the PLH overlapped for a 
sequential forward request without UBF or LOC 
specified 

if an update to a non-spanned record causes a 
length change 

if a record with changed length fits into the CNV 


if a record with changed length does not fit into 
the CNV 


QO8 © ©© © 
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IKQLCD is called 


IKQSRU is called 
IKQBFAOO0 is called 


IKQIRN is called 
IKQCISO0 is called 


IKQSFT is called 


IKQBFAO00 is called 


| 


in order to reposition the PLH when the update is to be 
retried after a CNV split—for keyed processing only 


if the old record or the new record is spanned 


if immediate writing is required for user buffer processing 
or for direct requests without the option NSP 


if the JRNAD exit is active, in order to inform the user 
of changes to the data set 


if more control intervals are needed than are allocated 
in order to reorganize the sequence set record during 
CI space reclamation, if control intervals become free 
during update with length change 


to write freed data CNVs and changed sequence set 
records during CI space reclamation 


*Logical error — End of data (for sequential standalone update) 


cle 
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IKQCISO00 
CONTROL 
INTERVAL 
SPLIT 








i 
(if JRNAD exit 













active) 
IKQCIL/ IKQIRN 
IKQCIU Journaling 
KSDS 
CONTROL 
INTERVAL 
SPLIT 
yy 
| IKQIXE00 
| INDEX 
| iil | 
Ge Fe 
dt i 
re Pee | | 
| | 
(high- (new index 
level) level) 
| 
| 
IKQIXF00 IKQBFA00 IKQNCAO00 
INDEX BUFFER NEW 
FORMAT MANAGER CONTROL 
(see Figure 3.9) AREA 
| (see Figure 3.6) 
IKQSFT 


shift 


| 
| 
| 
| | To 
(relative (multi-string (load us | 
record processing) processing and new and CA full) (sharing) 
| copy of index) I 
| 
| | | 
IKQRRP IKQIXS00 IKQNCAO00 IKQRBA IKQBFA00 
Relative INDEX NEW UPDATE BUFFER 
Record SEARCH CONTROL CATALOG MANAGER 
preformat | AREA FOR SHARING (see Figure 3.9) 
| (see Figure 3.6) | 
IKQBFA00 | 
BUFFER IGGOCLC9 
MANAGER CATALOG 
(see Figure 3.9) MGMT. 
(see Vol. 1) 
| De a ree ee re en eee 
| i See 
(index full (load mode (load mode 
or ce) and CA full) and CA full) 
! 
| | | (index 
| | full) 
IKQCIR IKQNCA00 IKQBFA00 IKQIXF00 | 
CI-SPACE NEW BUFFER INDEX | 
RECLAMATION CONTROL MANAGER FORMAT IKQIXS00 IKQCAS00 
AREA (see Figure 3.9) | INDEX control 
(see Figure 3.6) | SEARCH area split 
IKQBFA00 IKQSFT 
BUFFER stutt 
MANAGER IKQBFA00 
(see Figure 3.9) BUFFER 
MANAGER 


(see Figure 3.9) 
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IKQCISOO 
G) IKQCIL is called for splits caused by 


@ load mode, 
@ resume load, 
@ mass insert. 


IKQCIU is called for splits caused by 
@ update with length change, 


@ insert in front of a record already in the control interval, 
@ any direct mode insert, other than to the end of the data set. 


bre 
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IKQCAS00 
CONTROL 
AREA SPLIT 
IKQNCA00 IKQSFT IKQIXF00 
NEW CONTROL shift INDEX 
AREA FORMAT 
| | (see Figure 3.6) 
IKQCLIF | 
CLOSE INTERFACE IKQSPM00 IKQBFA00 IKQSFT 
ROUTINE SPACE BUFFER shift 
| MANAGER MANAGER 
| }ud (see Figure 3.9) 
IKQCLCAT ae | 
CLOSE CATALOG CS es es _j LL 
INTERFACE | —— | 
FUNCTION (sharing) (sharing) (out of 
| extents) 
IGGOCLC9 | | | IKQPFO00 
CATALOG IKQRBA IKQEDX IKQNEX FORMAT DATA CA 
MANAGEMENT EOV EOV EDB EOV GET OR INDEX CI 
(see Vol. 1) UPDATE EXTEND NEW | 
CATALOG | EXTENT | 
Jesus 
| ~ | 
| | 
| (extend) 
i 
IGGOCLC9 IGGOCLC9 IGGOCLC9 IKQSFT IKQBFA00 IKQRBA 
CATALOG CATALOG CATALOG - shift BUFFER UPDATE 
MGMT. MGMT. MGMT. MANAGER CATALOG 
(see Vol. 1) (see Vol. 1) (see Vol. 1) (see Figure 3.9) 
IGGOCLC9 
CATALOG 
MANAGEMENT 
(see Vol. 1) | 


IKQBFA00 

BUFFER 

MANAGER 
(see Figure 3.9) 


(if IRNAD exit 
active) » 


IKQJRN 
Journaling 


(see Figure 3.9) 
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IKQRQA 
request analyzer | 


| 
(error) 


IKQRQB 
request analyzer 2 


IKQBLD 
RDF build 


IKOSIT 
shift 


IKQJRN 
JRNAD exit 


user routine 


ERASE 
macro 
IKQVSM 
request driver 
Ae ES coat eas Re Nee epee eee 
Uo — I 
d | 
(normal) (error) 
| | 
| | 
IKQUPD user’s program IKQERH 
update error handler 
IKQLCN 
locate next 
IKQMDY 
modify 
Srey ee OE en ete eran —— 
; ae © 
! 1 
IKQSRU IKQBFA00 IKQGNX 
spanned record buffer manager get next CNV 
update 
! 
IKQJRN IKQBIA00 IKQSIT IKQBI-A00 IKQBIA00 
JRNAD exit buffer manager — shift bulfer manager buffer manager 


user routine 


(error) 


IKQERX 


cIror exit 


user's program 


OI 
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IKQBLD is called 
IKQSFT is called 
IKQJRN is called 
IKQSRU is called 
IKQBFAOO is called 


IKQLCD is called 


ERASE 


if the ERASE request is for a KSDS 

if the ERASE request is for a KSDS 

if the JRNAD exit is active 

if a spanned record is to be erased 

for direct requests without the NSP option 

for sequential and skip sequential requests during 


forward: processing, whenever the end of a control 
interval is reached 
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IKQRQA 
request 
analyzer 1 


| 

| 
(error) 

| 

| 


IKQRQB 
request 
analyzer 2 





VERIFY 
function 
IKQVSM 
REQUEST DRIVER 
(eee tees 
| a 
(normal) (error) 


! 


U > 
IKQVFY ser’s IKQERH 
VE program error 
mae? handler 


st. 


IKQBFA00 
BUFFER 
MANAGER 
(see Figure 3.9) 


(keyed 
processing) 


| 
IKQIXS0O 
INDEX 
SEARCH 


IKQBFA00 
BUFFER 
MANAGER 
(see Figure 3.9) 


(error) 


IKQERX 
error 
exit 


User’s 
program 


eo 
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(volume 
blank) 


$$BOVSO1 
MESSAGE 
WRITER 
INTERFACE 


$$BOMSG1 
VSE 
MESSAGE 
WRITER 


$$BOMSG2 
VSE 
MESSAGE 
WRITER 


$S$BODADE 
END OF 
MESSAGE 
INTERFACE 


ay 
Cancel 
\ 


x 


Return to 
IKQEOV 












IKQBFAO00 










1 
(Duplicate data 
condition) 


| 
IKQDDR 
Duplicate 
data recovery 


(mounted) 


(file protect) 


v 
IKQJIBSM 
UPDATE EXTENT 
BLOCKS FOR 
EDB CHAIN 


Return to 
IKQIOA00 


SVC 11 


Return to 
IKQEOV 


BUFFER 
eee 1 
Fe we ar ee eee a es eee ee a 
| aoa SSS 1 
(Buffer steal SHAREOPTIONS(4) (when buffer (LSR 
required) hold or free not valid in processing) 
| storage) 
| | 
IKQBFD IKQBFCO00 IKQIOA/IKQIOC IKQBFBO00 
Buffer Buffer manager 3 1/0 MANAGER Buffer manager 2 
Steal | i 
i ee Se | L.________. 
(end of (crossed IKQIOD 
extent) volume I/O Manager issue 
boundaries) EXCP and WAIT — 
IGGOCLC9 | 
CATALOG IKQEDX (I/O errors) 
MGMT. EDB IKQEOV 
(see Vol. 1) EXTEND MOUNT IKQIOB 
VOLUME 1/O Manager 
| error analysis 
Fe Ne ae ee ee ee ee et if aa ee ee a ee th 
| 
(dismount) 
| 
| | 
(no error) (error) 
IKQPBF00 y 
PURGE a Return to 
BU 
BEER (file $$BOVSO1 ROIOACe 
protect) MESSAGE 
WRITER 
IKQIOA00 INTERFACE 
1/O manager 
IKQJIBSM $$BOMSG1 
UPDATE EXTENT VSE_ 
VSE OPEN pecan’ = ESsAGE 
MONITOR WRITER 
SVC 11 
$$BOMSG2 
CEN i peti MESSAGE 
IKQEOV $$BOPEN1 
INTERFACE WRITER VSE OPEN 
MONITOR 
Pere $$BODADE 
ee $$BOVSAM 
MESSAGE 
etur t0 INTERFACE OPEN 
IKQEOV \ INTERFACE 
‘Cancel 
\ Return to 
Return to IKQEOV 





IKQEOV 





Section 4. Directory 


This section contains the following cross-reference material: 
e VSAM Phase-to-Module Index 

e Component Index 

e Module Directory 

e Routine Directory 

e Data Area Directory 


VSAM Phase-to-Module Index 
The core image library contains the VSAM phases. Their names are identi- 
| fiable by IKQV,S$S, or $§B. Packaged within the phases are the VSAM 
modules, identifiable by the leading characters IKQ, IGGO, $S or $$B. Two 
service aid phases, IKQVDU and IKQVEDA are not included in the link- 
edit of VSAM and must be placed in the core image library by executing a 
job described in Service Aids. 


The following list includes the phase names and the names of the modules 
included within each phase. 


Licensed Material — Property of IBM Section 4. Directory 4.1 


4.2 


IKQFTIND IKQFTIND 
IKQFT1 
IKQFT2 
IKQFT3 


IKQVASMT IKQASNMT 
IKQMTMSG 


IKQVBRP IKQBRP 


IKQVCAT IGGOCLAB 
IGGOCLAC 
IGGOCLAD 
IGGOCLAE 
IGGOCLAF 
IGGOCLAG 
IGGOCLAH 
IGGOCLAJ 
IGGOCLAK 
IGGOCLAL 
IGGOCLAN 
IGGOCLAP 
IGGOCLAQ 
IGGOCLAR 
IGGOCLAS 
IGGOCLAT 
IGGOCLAU 
IGGOCLAV 
IGGOCLAW 


IKQVCLC IKQCLCAT 
IKQVCLIF IKQCLIF 
IKQVCLOC IKQCLOCL 
IKQCLOS IKQCLO 
IKQVCLOV IKQCLOVY 
IKQVDCN IKQDCN 
IKQVDNT IKQDNT 
IKQVDRP IKQDRP 
IKQVDTPE IKQVDTPE 
IKQVDU IKQVDU 


IKQVDUMP IKQDUMP 
IKQDUMPC 


IKQVEDA IKQVEDA 
IKQVEDX IKQEDX 
IKQVEOV IKQEOV 


IGGOCLAX 
IGGOCLAY 
IGGOCLAZ 
IGGOCLA6 

IGGOCLA7 

IGGOCLA8 

IGGOCLBA 
IGGOCLBB 
IGGOCLBC 
IGGOCLBD 
IGGOCLBE 
IGGOCLBF 
IGGOCLBG 
IGGOCLBH 
IGGOCLBL 

IGGOCLBM 
IGGOCLBN 
IGGOCLBQ 
IGGOCLBR 


IGGOCLBS 
IGGOCLBT 
IGGOCLBU 
IGGOCLBW 
IGGOCLBX 
IGGOCLBY 
IGGOCLB8 
IGGOCLCA 
IGGOCLCB 
IGGOCLCD 
IGGOCLCG 
IGGOCLCL 
IGGOCLCO 
IGGOCLCP 
IGGOCLCR 
IGGOCLCS 
IGGOCLCX 
IGGOCLCY 
IGGOCLC9 


Figure 4.1 VSAM phase-to-module index (part 1 of 2) 


VSE/VSAM VSAM Logic, Volume 2 
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IGGOCLEG 
IGGOCLES 
IGGOCLET 
IGGOCLEX 
IGGOCLEZ 
IGGOCLFA 
IGGOCLFB 
IGGOCLFC 
IGGOCLFD 
IGGOCLFE 
IGGOCLFF 
IGGOCLFH 
IGGOCLFQ 
IKQALLOO - 
IKQPOPOO 
IKQRDSOO 
IKQRENOO 
IKQSCROO 
IKQVTCOO 
IKQWDSOO 





Phase name Module name(s) 


IKQVGEN 
IKQVJIBS 
IKQVLAB 
IKQVCLRD 
IKQVMSG 
IKQVNEX 
IKQVOPEN 


IKQVPBF 


IKQVRBA 
IKQVRM 


IKQVRT 
IKQVSCAT 
IKQVSHR 
IKQVSTM 
IKQVTMS 


$SVAVSAM 
$$BACLOS 
$$BCLCRA 
$$BCVSAM 
$$BCVS02 
$$BCVSO3 
$$BCVS04 
$$BODADE 
$$BODADS 
$$BOVSAM 
$$BOVSO1 
$$BTCLOS 


Figure 4.1 
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IKQGEN 
IKQJIBSM 
IKQLAB 
IKQCLRDD 
IKQOCMSG 
IKQNEX 


IKQOPN 
IKQOPNAB 
IKQOPNAI 
IKQOPNCT 
IKQOPNDO 
IKQOPNDS 
IKQOPNHC 


IKQPBFOO 


IKQRBA 
IKQAIX 
IKQBFAOO 
IKQBFBOO 
IKQBFCOO 
IKQBFD 
IKQBLD 
IKQCASOO 
IKQCIL 
IKQCIR 
IKQCISOO 
IKQCIU 
IKQDDR 
IKQERH 


IKQVRT 
IKQSCAT 
IKQOCSHR 
IKQSTM 


IKQTMSD 
IKQTMSF 


$SVAVSAM 
$$BACLOS 
$$BCLCRA 
$$BCVSAM 
$$BCVS02 
$$BCVSO3 
$$BCVS04 
$$BODADE 
$$BODADS 


$SBOVSAM . 


$$BOVSO01 
$$BTCLOS 


IKQOPNNC 
IKQOPNOV 
IKQOPNPV 
IKQOPNRD 
IKQOPNRP 
IKQOPNUC 
IKQOPNUS 


IKQERX 
IKQGCI 
IKQGNX00 
IKQGPT 
IKQINT 
IKQIOA 
IKQIOB 
IKQIOC 
IKQIOD 
IKQIXEOO 
IKQIXFOO 
IKQIXSOO 
IKQJRN 


IKQKRD 
iIKQLCD 
IKQLCN 
IKQLCP 
IKQLNA 
IKQMDY 
IKQNCAOO 
IKQPFOOO 
IKQRCLOO 
IKQRQA 
IKQROQB 
IKQRQC 
IKQRRP 


VSAM phase-to-module index (part 2 of 2) 


IKQRTV 
IKQSCN 
IKQSFT 
iKQSPMOO 
IKQSRG 
IKQSRT 
IKQSRU 
IKQUPD 
IKQUPG 
IKQVFY 
IKQVSM 


Section 4. Directory 
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Component Index 
VSAM is logically grouped into components, each of which consists of 
several modules. 


Component Module name Module function 


Rec. Mgmt IKQAIX Alternate index routine 

IKQBFAOO Control! buffers and their contents 

IKQBFBOO LSR buffer management 

IKQBFCOO Shareoption 4 hold control 

IKQBFD ‘‘Steal’’ a buffer from another buffer string 

IKQBLD Build RDFs for all changes to a control interval 

IKQBRP Build VSAM resource pool 

IKQCASOO Split a control area or high-level index record 

IKQCIL Special Ci split processing for load mode 

IKQCIR CNV space reclamation routine 

IKQCISOO Split a control interval or get a new control 
interval 

IKQCIU Special Cl split processing for non-load mode 

IKQCLIF Close interface routine for dynamic storage area 

IKQDDR Duplicate data recovery in case of system failure 
during Cl split 

IKQERH Handle errors for record management modules 

IKQERX Process error exits for record management 
modules 

IKQGCI Get Cl in key sequence 

IKQGNX00 Get next buffer and read records into buffers in 
anticipation of further user request processing 

IKQGPT Handle GET or POINT user requests 

IKQINT PLH initialization for LSR processing 

IKQIOA Build channel programs for READs and WRITEs 
and process !/O for CKD devices 

IKQIOB Analyze hardware errors encountered in 
IKQIOA00 

IKQIOC Build channel programs and process |/O for 
FBA devices 

IKQIOD issue EXCP and/or WAIT 

IKQIXEOO Make index entries and create high-level 
indexes 

IKQIXFOO Balance section entries in index record 

IKQIXS00 Search the index for desired key 

IKQJRN Journad Exit 

-IKQKRD Initialize for key-range requests 

IKQLCD Locate a specific record by key or RBA 

IKQLCN Locate next sequential (logical or physical) 
record 

IKQLCP Get backwards function (locate previous) 

IKQLNA Locate next sequential (logical or physical) 
record, and release and reacquire 
SHAREOPTIONS(4) exclusive control 





Figure 4.2 Component index (part 1 of 2) 
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Component Module Name 


IKQMDY 


IKQNCA0O 
IKQPBFOO 


IKQPFOOO 
IKQRCLOO 


IKQRQA 
IKQRQB 


IKQRQC 
IKQRRP 
IKQRTV 
IKQSCN 
IKQSFT 
IKQSPMOO 
IKQSRG 
IKQSRT 
IKQSRU 
IKQUPD 
IKQUPG 
IKQVFY 


IKQVSM 


Service IKQCLEAN 

Aids IKQDUMP 
IKQDUMPC 
IKQVEDA 
$$BCVSO03 
$$BCVS04 


Module Function 


Modify a control interval (insert, update, or 
delete) 

Construct a new control area 

Complete !/O processing already initiated 
preparatory to mounting another volume 
Format a data control area or index control 
interval and write SEOF 

Clean up record management requests before a 
VSAM CLOSE can be completed 

Analyze record management requests 
Complete analysis of record management 
requests 

PLH assignment for AIX processing (LSR) 
Relative record preformat 

Retrieve a specific record for caller 

Scan a control interval for a specific record 
Shift data in a control interval 

Apportion data or index space within extents 
Spanned record GET 

Insert a record in a control interval 

Spanned record update 

Update a record in a control interval 
Alternate index upgrade routine 

Reestablish high-used and high-key RBAs 
(VERIFY function) 

Perform initial processing for all record manage- 
ment requests and activate the modules that 
perform the operations 


DADSM utility 

Dump non-catalog control blocks 

Dump catalog control blocks 

Enable and disable VSAM snap dump routine 
Load a phase 

1/O routine for IKQVEDA 





Figure 4.2 Component index (part 2 of 2) 


Module Directory 


The module directory (Figure 4.3) is organized alphabetically by symbolic 
module name. It lists the descriptive name, the component to which that 
module belongs, the method of operation diagram and program structure 
figure numbers in which that module is referenced, and the external entry 


point(s). 
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IGGOCLC9* 
IKQAIX 
IKQBFAO0O* 


IKQBFBOO* 
IKQBFCOO 


IKQBFD 
IKQBLD 
IKQCASOO 
IKQCIL 
IKQCIR 
IKQCISOO* 


IKQCIU 
IKQCLCAT* 
IKQCLEAN 
IKQCLIF 
IKQCLNLK 
IKQDDR 
IKQDUMP 


IKQDUMPC 
IKQEDX 
IKQEOV 
IKQERH* 
IKQERX* 
IKQGCI 
IKQGNX0O 
IKQGPT 
IKQINT 
IKQIOA 


IKQIOB 
IKQIOC 


IKQIOD 


Descriptive name 


Catalog first load 
AIX routine 
Buffer manager 


LSR buffer manager 
Track hold control 


Buffer ‘‘steal’’ function 
RDF-build, non-spanned records 
Control area split 

Cl split for load mode 

CNV space reclamation routine 
Control interval split 


Cl split for non-load 

Close catalog interface function 
VTOC maintenance utility 

DSA CLOSE interface function 
Phase and include statement 

Cl split duplicate data recovery 
Block dump 


Dump catalog control blocks 
EDB extend 

Mount volume 

Error handler 

VSAM error exit 

Get Cl 

Get next buffer and read ahead 
Get/Point 

PLH initialization 

CKD I/O manager 


1/O manager, 1/O error analysis 
FBA I/O manager 


{/O manager EXCP/WAIT 


Component 


Catalog 
Rec. Mgmt. 
Rec. Mgmt. 


Rec. Mgmt, 
Rec. Mgnt. 


Rec. Mgmt. 
0/C/EOV 
Serv. aids 
0/C/EOV 
VSAM incl. 
Rec. Mgmt. 
Serv. aids 


Serv. aids 

0/C/EOV 

0/C/EOV 

Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 


Rec. Mgmt. 
Rec. Mgmt. 


Rec. Mgmt. 


Structure 


Diag.# Figure 3.x 


BC 

BS, DA-DF 
DI 

FE-FI 

DA, DG, 
DH, Du, DK, 
DL, DM 


BE-BF 


EA-EG, El, 
EK, EN-EP, 
ES, EU 

EW 

EA-EG, El, 
EK, EN, EQ 
ES, EU 
EH-EM, EQ, 
ER, ET, EV 


External 
entry points 
IGGOCLC9 
IKQAIX 
IKQBFAO0O 


IKQBFBOO 


IKQBFCOO 
IKQBFC10 
IKQBFC20 
IKQBFC30 
IKQBFC40 
IKQBFC50 


IKQBFD10 
IKQBLD 
IKQCASOO 
IKQCIL 
IKQCIR 


IKQCISOO 
IKQCIS10 
IKQCIS20 
IKQCIS30 


IKQCIU10 
IKQCLCAT 
IKQCLEAN 
IKQCLIF 
IKQCLEAN 
IKQDDR 


IKQDUMP 
IKQDUMPP 


IKQDUMPC 
IKQEDX00 
IKQEOVOO 
IKQERH 
IKQERX 
IKQGCI 
IKQGNXOO 
IKQGPT 


IKQIOA0O 


IKQIOBOO 
IKQIOC 





IKQIOD10 
IKQIOD20 


“ Refer to VSE/VSAM VSAM Logic, Volume 1 for additional documentation. 


Figure 4.3 Module directory (part 1 of 2) 
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IKQIXE0O 


IKQIXFOO 
IKQIXSO0O 
IKQJIBSM * 
IKQJRN 
IKQKRD 


IKQLCD 
IKQLCN 
IKQLCP 
IKQLNA 
IKQMDY 
IKQNCA00 
IKQNEX* 
IKQOCMSG* 
IKQPBFOO* 
IKQPFOOO 
IKQRBA 
IKQRCLOO* 
IKQRQA* 
IKQRQB* 
IKQRQC* 
IKQRRP 


‘| IKQRTV 
IKQSCN 
IKQSFT* 
IKQSGP** 
IKQSIN** 
IKQSLD** 
IKQSLN* * 
IKQSLP** 
IKQSPMOO 
IKQSRG 
IKQSRT 
IKQSRU 
IKQSUP ** 
IKQUPD 
IKQUPG 
IKQVEDA 


IKQVFY 
IKQVSMLK 
IKQVSM 


$SVAVSAM 

$$BODADE* 
$$BOVSAM* 
$$BOVS01* 


Descriptive name 


Index enter 


Index format 

Index search 

Build and delete extent blocks (JIBs) 
JRNAD exit 


Key range determination routine 
(KRDR) 


Locate direct 

Locate next 

Locate previous 

Locate next by argument 
Modify 

Get new control area 

Get new extent 

Open/Close message routine 
Purge buffer 

Format data CA or index CNV 
Update catalog for sharing 
Record management close 
Request analyzer 1 

Request analyzer 2 

Request analyzer 3 

Relative record preformat 


Retrieve 

Scan control interval 

Shift 

Used for Space Mgmt. Feature 
Used for Space Mgmt. Feature 
Used for Space Mgmt. Feature 
Used for Space Mgmt. Feature 
Used for Space Mgmt. Feature 
Manage space within extents 
Spanned record GET 

Insert 

Spanned record UPDATE 
Used for Space Mgmt. Feature 
Update 

Alternate index upgrade routine 


Enable and disable VSAM 
diagnostic aids 


Verify 
Phase and include statements 
VSAM request driver 


SVA module list 
End of message interface 
Open interface 


Catalog/DADSM interface to mount 
volume 


Component 


Rec. Mgmt. 


Rec. Mgmt. 
Rec. Mgmt. 
0/C/EOV 

Rec. Mgmt. 
Rec. Mgmt. 


Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
0/C/EOV 

O/C/EOV 

Rec. Mgmt. 
Rec. Mgmt. 
0/C/EOV 

Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 


Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Rec. Mgmt. 
Service Aids 


Rec. Mgmt. 
VSAM 
Rec. Mgmt. 


VSAM 
DADSM 
0/C/EOV 
0/C/EOV 


External 
entry points 


IKQIXEOO 
IKQIXE20 
IKQIXFOO 
IKQIXSOO 
IKQJIBSM 
IKQJRN 

IKQKRD 


IKQLCD 
IKQLCN 
IKQLCP 
IKQLNA 
IKQMDY 
IKQNCAOO 
IKQNEX00 
IKQOCMSG 
IKQPBFOO 
IKQPFOOO 
IKQRBAOO 
IKQRCLOO 
IKQRQA 
IKQRQB 
IKQRQC 


IKQRRP 
IKQRRP20 


IKQRTV 
IKQSCN 
IKQSFT 
IKQSGP 
IKQSIN 
IKQSLD 
IKQSLN 
IKQSLP 
IKQSPMOO 
IKQSRG 
IKQSRT 
IKQSRU 
IKQSUP 
IKQUPD 
IKQUPG 
IKQVEDA 


IKQVFY 


IKQVSM 


$$BODADE 
$$BOVSAM 
$$BOVSO1 





*Refer to VSE/VSAM VSAM Logic, Volume 1 for additional documentation. 
**Refer to VSE/VSAM Space Management for SAM Feature Logic for additional documentation. 


Figure 4.3 Module directory (part 2 of 2) 
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Routine Directory 
Some of the VSAM modules contain several routines which are listed 
alphabetically by the entry points along with the appropriate module. 
Figure 4.4 contains record management modules. 


Entry point Procedure description 


IKQBFA10 Buffer manager, GETBUFF 

IKQBFA20 Buffer manager, FREEBUFF 

IKQBFA30 Buffer manager, get a BCB 

IKQBFA40 Buffer manager, free a buffer 

IKQBFAS5O Buffer manager, do |/O 

IKQBFA60 Buffer manager, get a scratch BCB 

IKQBFA70 Buffer manager, check RBA for exclusive control 
IKQBFA80 Buffer manager, return a BCB 


IKQBFB10 Buffer manager, defer writing buffer 

IKQBFB20 Buffer manager, write deferred buffers 

IKQBFB30 Buffer manager, get scratch buffer from resource pool 
IKQBFB40 Buffer manager, return scratch buffer to resource pool 
IKQBFB50 Buffer manager, search resource pool for requested RBA 


IKQBFC10 Buffer manager, share option 4 hold 
IKQBFC20 Buffer manager, share option 4 free 
IKQBFC30 Buffer manager, share option 4 hold time-out 
IKQBFC40 Buffer manager, issue LOCK. 

IKQBFC50 Buffer manager, issue UNLOCK. 


IKQBFD10 Buffer manager, ‘‘steal’’ a BCB 


IKQCAS80 Control area split, count index entries 
IKQCASS80 Control area split, decompress keys 


IKQCIS10 Cl split, assign a free Cl for use 
IKQCIS20 Cl split, initialize a buffer for a new Cl 
IKQCIS30 Cl split, update high-key RBA 


IKQCIU10 Cl split, re-enter non-load-mode 
Ci split when index has to be split 


IKQIODOT Special label on a test-under-mask/branch sequence that bypasses 
EXCPAD if the |/O has already completed. Used to ZAP the se- 
quence for test purposes so that the bypass will not occur. 


IKQIOD10 Issue EXCP. 
IKQIOD20 Issue WAIT. 





Figure 4.4 External entry points of record management modules 
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Control Block Directory 
The control block directory (Figure 4.5) contains a short entry for each of 
the most important VSAM control blocks for the components documented 
in this volume, giving the length and the purpose of each block. 


Data Area Total size Purpose 


68 bytes To describe a VSAM cluster 
112 bytes To connect an ACB to the PLH and AMDSB(s) 


200 bytes To record data set status and statistics (not 
including buffer header and first EDB) 


48 + (2 To record data about volumes and RBAs per 
x key length) key range 


108 bytes To point to a buffer 


52 bytes To contain information about buffers and buffer 
processing 


64 bytes To describe the storage allocation for the CCW 
build area 


72 bytes ‘To contain information about buffers in a 
subpool of the resource pool 


404 bytes + (5 To describe a control interval split workarea 
x keylength) 


52 bytes To contain the extent descriptions 

30 bytes To contain addresses for user exit 

(variable) routines 

64 bytes Describes the channel program block. 

24 bytes To describe the logical and physical nature of 
device 

ESDS 504 bytes To determine record or CNV position 

KSDS 572+ 

RRDS ___ keylength 


8 bytes To contain information about the resource pool 


52 bytes To contain user request information and error 
feedback information 


16 bytes To contain information needed for sharing 
resources 


60 bytes To contain information and serve as a 

+key length work area for special handling related to file 
sharing (SHAREOPTIONS(4)) 

60 bytes To contain information needed to do 
SHAREOPTIONS(4) locking 


40 bytes To maintain request information 
(variable) 





Figure 4.5 Control block directory 
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VSAM Data Set 


VSAM Record 


Control Interval 


Section 5. Data Areas 


This section deals with the internal data areas of VSAM record manage- 
ment, describing their formats, functions, and interrelationships. It is 
assumed that you are familiar with the basic structure of VSAM, such as the 
types of data sets, the structure of indexes, the concept of the catalog, etc., as 
these are described in Using VSE/VSAM Commands and Macros. 


The section contains a description and format of the VSAM record manage- 
ment control blocks, together with figures showing their interrelationships. 
VSAM control blocks that do not appear in this volume are documented in 
VSE/VSAM VSAM Logic, Volume 1. 


A VSAM data set is a collection of records grouped into control intervals. 
Control intervals are grouped into larger units called control areas. If the 
VSAM data set is key-sequenced, then the control interval(s) in which it 
resides are pointed to by entries in an associated index. The VSAM stored 
record, control interval, control area, and index are described in the topics 
that follow. 


Records are normally treated by VSAM as variable-length records. Records 
can be spanned across control intervals within a control area, and their 
maximum size is thus equal to the length of a control area. The only excep- 
tion 2 this is a relative-record data set, whose records must have a fixed 
length. 


A control interval is a continuous area of auxiliary storage that VSAM uses 
for storing records. The control interval is the unit of information that 
VSAM transfers between virtual and auxiliary storage. 


The length of each control interval is an integral multiple of block size. The 
size of a control interval is determined by the system from the size of the 
records, user-specified minimum buffer size, device characteristics, and the 
user-specified percentage of free space. You can specify the size of the 
control interval, but it must be within limits acceptable to VSAM. Control 
interval length must be in the range of 512 to 32,768 bytes. If the length is 
between 512 and 8,192, the value must be a multiple of 512; if the length is 
between 8,193 and 32,768, the value must be a multiple of 2,048. 


Data records are put in the low-address portion of the control interval. 
Control information about each data record is put in the high-address 
portion of the control interval. The combination of a data record and its 
control information, though they are not physically adjacent, is called a 
stored record. The control information in a control interval consists of a 
Control Interval Definition Field and one or more Record Definition Fields. 
Figure 5.1 shows the format of a control interval. 
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Record | Record | Record 
1 2 3 Free Space 


Figure 5.1 Control interval format 


Control Interval Definition Field 


Record Definition Field 


5.2 


The Control Interval Definition Field (CIDF) describes the control interval. 
Its format is shown in Figure 5.2. 














Offset 
Dec Hex 


Bytes and 
Bit Pattern Field Name 













Description 





0 0 2 CIDFDD Free space offset (binary) 
Displacement from the beginning of the 
control interval to the beginning of the 
free space! 


2 2 2 CIDFLL Free space length (binary) 


Length of the free space area within this 
control interval! 


2 2 ViscaSinns CIDFDDP The process of moving records from this 
control interval to another is not com- 
plete; duplicate records may exist. 







1 If the CIDF contains only Os, end-of-data-set or end-of-key-range is indicated; either 
the end of the data set was detected or the end of a key range in a key-sequenced 
data set was detected when the data set was to be divided between volumes. Informa- 
tion in the volume group occurrence (see VOLFLG) in the data set’s catalog record 
helps to differentiate between the end-of-data-set and end-of-key-range conditions. 


Figure 5.2 Control interval definition field format 


The Record Definition Fields (RDFs) describe the records in the control 
interval. They are inserted into the control interval from right to left, which 
means that the rightmost RDF describes the leftmost data record. 


There is normally one RDF for each record, except in two special cases. 
These are: 


e When two or more consecutive records in the control interval have the 
same length. In this case, two RDFs are used to describe the whole 
group of records. The first (right-hand) RDF describes the characteris- 
tics of the records, and the second (left-hand) RDF contains a count of 
the number of records. 


Note that this is true only for key-sequenced and entry-sequenced data 
sets. The slots or records in a relative record data set have a fixed length, 
but specific information is required for each one. The records cannot, 
therefore, be grouped, and one RDF is required for each record. 


e When the record is spanned. In this case, only one segment of one 
record can be located in the control interval. Nevertheless, two RDFs 
are used. The first (right-hand) RDF describes the record segment, and 
the second (left-hand) RDF contains a ‘level number’, which is used for 


data integrity checking. This number is assigned and updated by VSAM 
whenever the spanned record is processed. The level number in all 
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segments of a spanned record will always be the same, unless an error 
has occurred. 


The format of an RDF is shown in Figure 5.3. 


Offset Bytes and 
Dec Hex Bit Pattern Field Name Description 


RDFFLAG Flag byte 
RDFEXT RDF extension flag 


There is no RDF to the left of this RDF 
that contains additional information 
about record(s) described in this RDF. 
There is an RDF to the left of this RDF 
that contains additional information 
about the record(s) described in this 
RDF. Byte two and three of the RDF to 
the left contain the following information: 


e if there are more consecutive records 
than one of fixed length they contain 
the number of these records begin- 
ning with the record associated with 
the previous (to the right) RDF (see 
replication count flag) 
in the case of spanned records they 
contain the level number 

This is the only segment of a stored 

record. 

RDFSRM The RDF to the left contains information 
about spanned records (middle segment) 

RDFSRL The same as above but last segment 

RDFSRF The same as above but first segment 

RDFREPL Replication count flag 
The second and the third bytes of this 
RDF contain the data records length 
This RDF contains additional information 
about the record(s) described in the RDF 
to the right. 

RDFRESL Empty slot indicator (for relative record 
processing where one RDF is associated 
with one slot in the control interval - no 
extended RDFs) 

The record in the corresponding slot is 

invalid (it has been deleted or not yet in- 

serted) 

The record in the corresponding slot is 

valid 

Depending on the kind of record(s) 


described, byte two and three of an RDF 
contain one of the following values: 





Figure 5.3 Record definition field format (part 1 of 2) 
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Offset Bytes and 
Dec Hex Bit Pattern Field Name Description 


Length field 

Always present in the rightmost (or only) 
RDF for a record or group of fixed-length 
records. 


These bytes contain the data record's 
length or the length of the segment of a 
spanned record. 

Byte 0, Bit 4 = 0, Bit2,3 =0 


RDFCOUNT Count field 
These bytes contain the number of 


consecutive fixed-length records. Itis a 
type of RDF that contains additional in- 
formation about the records described in 
the RDF to the right. 
Byte O (of the RDF to the right) Bit 4 = 1, 
Bit2,3 = 0 

RDFSRLVL Level number 


These bytes contain the level number for 
spanned records. It is a type of RDF that 
contains additional information about the 
records described in the RDF to the 
right. 

Byte 0 (of the RDF to the right) Bit 4 = 1, 
Bit 2,3 = 11 or 10 or 01 





Figure 5.3 Record definition field format (part 2 of 2) 


Control Area 
A control area consists of control intervals; the number of control intervals 
in a control area is determined by VSAM. The control area is the amount of 
space that VSAM preformats so that data integrity is ensured for records 
added to a data set. 


Control areas are also used to simplify and localize the movement of records 
when records are inserted in a key-sequenced data set. If an insertion 


requires a free control interval and there isn’t one, a control-area split 
results. VSAM establishes a new control area and moves the contents of 
approximately half of the full control area to free control intervals in the 
new control area. The new records, as their keys dictate, are then inserted 


into one of the two control areas. The control area has no specific control 
information. 
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Index 


Index 


Data 


Figure 5.4 


Sequence Set | 10009 | 10080 


[4021 |rsoza|raoza fraoze | rs 


An index is created at the same time as a key-sequenced data set. The index 
structure exists in its own address space and consists of one or more levels. 
The lowest level or sequence set consists of one or more index records. There 
is an index record in the sequence set for each formatted control area. 
Within a sequence-set record there is either an index entry or a free data 
control interval pointer for each control interval in the control area. (Free 
data control interval pointers are discussed later in this section.) The key in 
each entry of a sequence set record is the same as the key of the last (highest) 
entry in the corresponding control interval. To save space, VSAM com- 
presses the keys in the index. 


The upper levels of the index are collectively called the index set, and 
contain index entries which point to the next lower level of the index. 
Figure 5.4 shows a simple index structure. 


-- 







14000 | 14028 | rs | <P 18040 | 18080 
Ve ane” 


Index control interval 
containing index record 


0001 ]10002|10003 |roo0n] es =U AQ 


sot [ooeo[vooroioneo | s____Y7 p satan 


a a 


0384 |ta000 | 1280014000] es YY 











FS — free space 
-— =e — horizontal pointers 
aap — vertical pointers 


B- control information 


Example of a simple VSAM index . 
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Index Record 


The index records and control intervals are fully compatible with VSAM 
data records and control intervals, and are handled by record-management 


modules in the same way. The only differences between index records and 
data records are: 


e There is only a single index record in an index control interval (and thus 


only one RDF). 


The internal format of an index record is fixed. This format is shown in 
the example of Figure 5.5, and its various parts are discussed. 


Pointer [Pointer | Pointer |Pointer F Entry {Entry | Entry | Entry 


Free data control Index entries 
interval pointers 





Figure 5.5 Example of an index control interval 
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Index Record Header 


The index record header contains the information needed to insert index 
entries, to locate entries within the record, and to convert pointers into 
RBAs. The format of the index record header is shown in Figure 5.6. 


Offset 
Dec Hex 


22 «#16 


Field 
Field Name Size 


IXRL 


IXCINL 


IXPMASK 


IXBASRBA 


IXNXTIR 


IXLVLNO 


IXINSOS 


IXLENTRY 


IXFSECTN 


Description 


Length in bytes, of the index record, 
including this field. 


Length, in bytes, of the control information 
(the IXENTRYF, IXENTRYL, and IXEN- 
TRYP fields) in each index entry. 

Length of the pointers to free data control 
intervals in this index record!. This field is 
used as a mask for insert character (store 
character) under mask instructions that 
are used to access pointers. The value 
contained in this field specifies the length 
of these pointers, as follows: 

B‘'0001' 1-byte pointer 

B'0011' 2-byte pointer 

B‘0111' 3-byte pointer 

For a sequence-set index record, the RBA 
of a data control area that contains data 
to be referenced. This RBA and index- 
entry pointers are used together to calcu- 
late the 4-byte RBA of another index re- 
cord or of a data control interval (O for 
high-level indexes). 


Pointer to the logically next index record 
in this index level. (Horizontal pointer) 
Reserved (0). 

Index level number. A sequence-set index 
is assigned a value of 1; the next higher- 
level index is assigned a value of 2; etc. 


Reserved (0). 


Displacement from the beginning of this 
record to the space available for inserting 
index entries. For higher-level indexes, 
the entry space immediately follows the 
record header; for sequence-set indexes, 
the entry space follows the record header 
and free data-control-interval pointers. 


Displacement from the beginning of this 
record to the last (high-key) entry in the 
index record.2 

Displacement from the beginning of this 
record to the first (low key) section entry 
in the index record.2 


1 Pointers are allowed to vary in length to conserve index space. If, for example, the 
number of items to be referenced by an index record is less than 256, a one-byte 
pointer can be used; If the number is greater than 256 and less than 65,536, a 
two-byte pointer can be used; and if the number is greater than 65,536, a three- 
byte pointer can be used. 

2 This displacement is to the F (front-key compression count) byte of the entry, not to 
the beginning of the entry. 


Figure 5.6 
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Index record header format 
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Free Data-Control-Interval Pointers 
Free data-control-interval pointers, which exist only in sequence-set index 
records, are used to calculate the RBAs of available data control intervals. 
The length of a pointer is specified in the record header. 


When the index is first built, and before records have been loaded into the 
data set, the index records of the sequence set contain one free data control 
interval pointer for each data control interval. 


VSAM always uses the rightmost free data-control-interval pointer when a 
data control interval is needed. The value of the pointer is set to 0 when the 
control interval is used. As pointers are set to 0, the displacement to space 
that is available for index entries (contained in the record header) is adjust- 
ed by the length of the free data-control-interval pointer. In this way, space 
used by free data-control-interval pointers is made available for index 
entries when the pointers are no longer required. 


The example in Figure 5.5 shows a sequence set record for a control area 
with eight control intervals. Of these eight, the first four are now occupied 
by data, and the last four are still free. 


Index Entries 
The index entries are the link between the index and the data set. They 
contain the key, the pointer to the data control interval containing the data 
record, and information about key compression. The format of an index 
entry is shown in Figure 5.7. 


Field Size 
(in bytes) Field Name Description 


Variable IXKEY Key characters that determine the sequence of records in a 
key-sequenced data set. 


IXENTRYF Front-key compression count, that is, the number of 

(F byte) characters by which the beginning of the key has been 
compressed. 

IXENTRYL Length of the IXKEY field. 

(L byte) 

IXENTRYP Pointer to an index or data control interval. 

(P field) This value is the number of the Cl within the CA (for 
example ‘4’ for the fifth Cl). To calculate the RBA of 
the Cl, this value must be multiplied by the Cl size and 
added to the contents of IXBASRBA. 





Figure 5.7 Index entry format 


Index Entries for Spanned Records 
Since spanned records extend across two or more data control intervals, 
their index entries, sometimes called ‘complex index entries’, consist of a 
series of ‘normal’ entries (one for each data control interval). These entries, 
in turn, are basically standard index entries, but they have some special 
features: 


e The key is contained only in the entry for the last segment of the span- 
ned records, whose F byte contains the actual key compression count. 

e The entries for all other segments contain no key, and their F byte 
contains a compression count equal to the key length, thus indicating a 
key length (in the entry) of zero. 


e Each entry contains a pointer to its associated segment (or data control 
interval). 
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Index Entry Sections 


To save time when searching index records for a given key, the index entries 
are grouped into sections. This allows a rapid search, scanning only the 
highest key in each section, to locate the correct section, which is then 
searched for the correct key. 


A section is defined by a two-byte field to the left of the high-key entry in 
the section. This field contains the displacement from the F byte of the 
high-key entry in this section to the F byte of the high-key entry in the next 
section (to the left). The index record header contains a pointer to the F 
byte in the high-key entry in the first section. 


For technical reasons, this division of the index entries into sections is not 
carried out until a control interval split is necessary in a control area. There 
will thus be no section definition fields in the index of a freshly loaded data 
set, and only some of the sequence set records in an ‘older’ data set will have 
such fields. 
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Alternate Index 


The alternate index (AIX) provides an alternate means of access, using 
different keys, to the data records in the base cluster, which can be a key- 
sequenced or entry-sequenced data set, but not a relative-record data set. 
The alternate index itself is a key-sequenced data set. The index component 
of the AIX is identical in structure, format, and function to the index of any 
other key-sequenced data set. The basic structure of the data component of 
the AIX is also identical to that of a normal key-sequenced data set, as far as 
CIDFs and RDFs are concerned. 


The only difference in format between the AIX and a normal key-sequenced 
data set concerns the records in the data component of the AIX, which have 
a fixed format, shown in Figure 5.8. These records form the logical connec- 
tion between the AIX and the base cluster, and contain control information, 
the alternate key, and one or more pointers to the base cluster. If this base 
cluster is a key-sequenced data set, the pointers consist of the prime keys of 
the required data records, which are then located by means of the base 
cluster index. If the base cluster is an entry-sequenced data set, which has 
no index, the pointers are relative-byte addresses (RBAs) of the required 
records, which can then be located directly. 


As it is possible to have more than one pointer in an AIX record, the length 
of such a record can vary. In extreme cases, it may be greater than the 
control interval length, and the record is treated as a spanned record. 


Offset Bytes and 
Dec Hex Bit Pattern Field Name Description 


1 AIXFG Flag byte 
XXXX XXX. Reserved 
AIXPKP Prime key pointers are used 
RBA pointers are used 
AIXPL Pointer length (in binary) 


AIXPC Number of pointers in this record (in 
binary) 


AIXKL Length of alternate key (in binary) 
AIXKY Alternate key 
Note 2 Note 3 AIXPT First pointer to base cluster 


Note 1: The length of this field is specified in AIXKL 
Note 2: The displacement of this field is 5 + the length of AIXKY 
Note 3: The length of this field is specified in AIXPL 





Figure 5.8 Alternate index record format 
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Figure 5.9 Multiple string control block structure 
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Alternate index 1 Base cluster 
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Figure 5.10 Base cluster to alternate index control block structure 
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Control Block Description and Format 


Access Method Block List (AMBL) 
The AMBL describes a VSAM cluster and points to the cluster’s data set 
and index AMDSBs. When the cluster is opened, an AMBL is built to 
describe the cluster. AMDSBs are built to describe the cluster’s data set and, 
if the cluster is key-sequenced, to describe the index. The AMBL is pointed 
to by the cluster’s ACB (ACBAMBL). 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 
AMBLST Beginning of AMBL 
AMBLID x‘11" AMBL identifier 


AMBLACT AMBL active byte 
(X‘'FF’=AMBL is active) 


AMBLLEN Length of control block 
AMBLDTA Pointer to data AMDSB 
AMBLIX Pointer to index AMDSB 
AMBLPLHF Pointer to first PLH* 
AMBCHAIN Reserved 

AMBLACB Pointer to ACB 
AMBLPLHL Length of PLH* 
AMBLPLHN Total number of strings * 
AMBLFLAG Flag byte 

AMBLPOST z POST must be issued 
AMBAMBUF Size of buffer space 


AMBMACRF Flags (copy of flags in 
ACBMACR?1 and ACBMACR2) 
AMBMACR1 First byte: 


+~-—"np fh aA f& A AD 


AMBKEY x'80' Access data via index or 


relative record number 
AMBADD X‘40' Access via RBA 
AMBADR X‘40’ Access via RBA 
AMBCNV x‘20' Control interval processing 
AMBSEQ Xx‘10' Sequential processing 
AMBDIR X‘08' Direct processing 
AMBIN x‘04' GET, READ processing 
AMBOUT X‘02’ PUT, WRITE processing 
AMBUBF X‘01’ User buffers 


AMBMACR2 Second byte: 


AMBLSR X‘80’ Local shared resources 
AMBDFR X‘40’ Defer writing of buffers 
AMBSKP X‘20’ Skip sequential accessing 
AMBRST Xx‘10’ Reusable Data Set 
AMBAIX X‘08' AIX processing 
AMBJRACT X‘02’ JRNAD exit enabled 
AMBOPEN x‘01' Open is in process 


22 AMBLTLEN Length of GETVIS for close 
work area 


24 AMBDBUF Number of data buffers 
26 AMBIBUF Number of index buffers 
28 4 AMBLOPWA Pointer to open work area 


When LSR is active, AMBLRPHD is not equal to 0, and AMBLSR in. 
AMBMACR2 is set on. In this case, the fields indicated by the asterisk refer to 
the PLH pool. 





Figure 5.11 Access Method Block List (AMBL) description and format (part 1 of 3) 
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Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


Split Control 
AMBSECB Split /pseudo-split ECB 
AMBSRCL X‘80’ IKQRCLOO set split lock 

X‘40’ Reserved 

X‘20’ Reserved 

X‘10’ Reserved 

X‘08' Reserved 

X‘04’ Reserved 

X'02’ Reserved 

X‘01’ Reserved 

Reserved 


AMBSCOM ECB post byte-split 
AMBSWAIT X‘80' Wait bit-split 
; X‘40’ Reserved 
X‘20' Reserved 
X‘10’ Reserved 
X‘08’ Reserved 
xX‘04' Reserved 
X‘02' Reserved 
x‘01" Reserved 


AMBSECBT Test-and-set byte - split 


AMBBECB ECB for IKQRQC to ensure that 
only one string (at a time) ex- 
tends the chain of base cluster 
RPLs during path processing in 
an LSR environment. 

Reserved 


AMBBCOM ECB post byte-buffer 
AMBBWAIT Wait bit-buffer manager 

Reserved 

Reserved 

Reserved 

Reserved 

Reserved 

Reserved 

Reserved 


AMBBECBT Test-and-set byte - buffer 

AMBRBAS RBAs for split locking 

AMBLORBA Low RBA of control area being 
split 

AMBHIRBA High RBA of control area being 
split 

AMBSTRID ID of string which holds control 
area. 





Figure 5.11 Access Method Block List (AMBL) description and format (part 2 of 3) 
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Offset 
Dec Hex 


Figure 5.11 
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Field Name 


AMBOCSW 
AMBLAUTO 


AMBPLH 


AMBALIST 
AMBLRPLS 
AMBLCLWA 
AMBLCIWA 
AMBLBC 


AMBLUSB 

AMBBCACB 
AMBPEACB 
AMBLRPHD 


AMBDECB 


AMBDCOM 
AMBDWAIT 


AMBDECBT 


AMBLEND 


Hex. 
Digit Description 


Pointers 


OPEN/CLOSE switches 
A dynamic volume list was built 
for this ACB. 

Reserved 

Reserved 

Reserved 

Reserved 

Reserved 

Reserved 

Reserved 

Reserved 


Address of PLH in control 


Executive control list address 
Address of RPL causing split 
Pointer to close work area 
Pointer to Cl split work area 
Pointer to base cluster PLH 
pool 

Pointer to USB 

Pointer to base cluster ACB 
Pointer to path entry ACB 
Pointer to resource pool 
header 

ECB for duplicate data re- 
covery 

Reserved 

ECB post byte - duplicate data 


recovery 
Traffic bit 


Reserved 

Reserved 

Reserved 

Reserved 

Reserved 

Reserved 

Reserved 

Test-and-set byte - duplicate 
data recovery 


Pointer to file sharing work 
area 





Access Method Block List (AMBL) description and format (part 3 of 3) 
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Access Method Control Block (ACB) 
The VSAM ACB describes a VSAM cluster. It is built by the user’s pro- 
gram. The ACB points to the Exit List (EXLST). After the cluster is 
opened, the ACB is pointed to by the RPL (RPLDACB) that describes the 
user’s record processing request. The ACB also describes the processing 
options, password, and I/O buffer space applicable to the user’s program. 


Offset Hex. 
Dec Hex Bytes 


Field Name Digit Description 


ACBST 
ACBID 
ACBIDD 
ACBIDVAL 


ACBSTYP 
ACBSDV1 
ACBSVSE1 


ACBLEN 
ACBLENG 
ACBAMBL 
ACBAMO 
ACBACT 


ACBINFLG 
ACBSCRA 


ACBUCRA 


ACBSTSKP 


ACBDBUF 
ACBBUFND 
ACBIBUF 
ACBBUFNI 
ACBMACRF 


ACBMACR1 
ACBKEY 


ACBADD 
ACBADR 
ACBCNV 
ACBSEQ 
ACBDIR 
ACBIN 
ACBOUT 
ACBUBF 


X‘80’ 


X‘40' 
X‘40’ 
X‘20' 
X‘10’ 
X‘08' 
X‘04' 
X‘02’ 
X‘01' 


ACB identifier = ‘AO' 
ACB equate 
ACB equate 


Release indicator 
DOS/VS VSAM Release 1 
VSE/VSAM Release 1 
VTAM 

Length of ACB in bytes 
Length of ACB in bytes! 
Address of the AMBL 
Pointer to VSAM code 


ACB active byte (X‘FF’=ACB is 
active). 

Catalog recovery flags 

ACB is for a system-initiated 
OPEN of the CRA 

ACB is for a user-initiated 
OPEN of the CRA 

Reserved for CRA 

Reserved for CRA 

Skip updating of statistics 
Reserved for CMS 

Reserved for CMS 
Reserved for CMS 


Number of data buffers 
Number of data buffers 
Number of index buffers 
Number of index buffers 
MACRF 


MACRF first byte 
Access data via index or 
relative record number 
Access via RBA 

Access via RBA 

Control interval processing 
Sequential processing 
Direct processing 

GET 

PUT 

User buffers 


1 |f specified length is too small for a VSE/VSAM Release 1 ACB, a DOS/VS VSAM 
Release 1 ACB is built (X‘00’ in byte 1). 


Figure 5.12 
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Offset 
Dec Hex 


Field Name 


ACBMACR2 
ACBLSR 
ACBDFR 
ACBSKP 
ACBRST 
ACBAIX 
ACBJRACT 


ACBDOSID 
ACBDTFID 


ACBOFLGS 


ACBVOLMT 
ACBVMSG 
ACBEOV 
ACBOPEN 
ACBCAT 
ACBEXFG 
ACBSUB 


ACBKEYOK 


ACBNST 
ACBSTRNO 
ACBERFLG 


ACBOINCB 
ACBOALR 
ACBOLLUB 


ACBONJIB 


ACBOLIGN 


ACBOLUNA 


ACBOAASF 


ACBOIDSP 


ACBOCEXT 


ACBONOAL 


ACBONANR 


Hex. 
Digit 


Description 


MACREF second byte 

Local shared resources 
Defer writing of buffers 
Skip sequential access 
Reusable data set 

AIX processing only 
JRNAD exit active 

DOS DTF identifier 

DTF type for VSAM 
Open/close flags 

Verify volume mounted 
Message requested bit 
EOV detects completed 
ACB is open 

ACB for VSAM catalog 
User exit flag 

ACB is suballocated (is located 
in a control block allocation 
unit) 

Key processing all right for this 
ACB 


Number of strings 
Number of strings 
Error flags 


Open error return codes: 


X‘Q2’ 
X04’ 
X'OE’ 


X‘OF’ 


Invalid control block structure 
This ACB is already open 


The symbolic unit in the DLBL 
statement is invalid. 

No job information blocks 
(JIBs) are available from the la- 
bel information cylinder. 


The address in the ASSGN 
statement for the logical unit 
was IGN (assignment ignored). 


The address in the ASSGN 
statement for the logical unit 
was UA (logical unit unas- 
signed). 


Unable to automatically assign 
a logical unit number 


The OPEN disposition specified 
for the file conflicts with other 
file characteristics 

The volume serial numbers 
specified in the EXTENT state- 
ment do not match those speci- 
fied in the catalog entry. 

No space available on any 
volume for primary allocation of 
a dynamic file 

An attempt was made to open a 
NOALLOCATION file which is 
not reusable 





Figure 5.12 Access Method Control Block (ACB) description and format (part 2 of 6) 
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Offset Hex. 
Dec Hex Bytes 


Field Name Digit Description 


5.18 
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ACBOCDLD = X‘32’ 


ACBONCIF X‘40' 


ACBOSENS 


ACBOIRCZ 


ACBOUEXP 


ACBODMOD 


ACBONSDS 


ACBOBNAM 


ACBORCSZ 


ACBONALC 


ACBOIDEL 


ACBOIDEF 


ACBONMNT 


ACBONCRA 


ACBOIERR 


ACBOUEMP 
ACBOTMST 


Unable to load VSAM modules 
via a CDLOAD macro instruc- 
tion. 

An attempt was made to opena 
NOCIFORMAT file using VSAM 
(ACB) access 


An attempt was made to open a 
SAM ESDS without the 
VSE/VSAM Space Manage- 
ment for SAM Feature installed 
An attempt was made to opena 
OTF whose file characteristics 
do not match the file character- 
istics of the VSAM catalog 


An attempt was made to open 
an unexpired file for output us- 
ing a OTF 

The file to be opened has a 
name which begins with an in- 
valid prefix 


An attempt was made to open a 
nonSAM ESDS file using a DTF 


An invalid file-id was detected 
during implicit define or implicit 
delete. 

Allocation specifications for 
implicit define conflict with the 
file characteristics specified in 
the DTF and conversion to cor- 
rect the conflict was unsuc- 
cessful 

The file-id specified in your 
DLBL statement was not found 
in the catalog and insufficient 
allocation information is speci- 
fied for an implicit define. 


A catalog management error 
was detected during implicit 
delete 


A catalog management error 
was detected during implicit 
define. 


Attempt to mount two volumes 
on the same drive when direct 
or keyed processing was speci- 
fied. Or the operator failed to 
mount the volume. 


CRA volume not mounted 
Unusable input data set 
Empty upgrade AIX 


The time stamp of the volume 
on which a data set is stored 
doesn't match the system time 
stamp in the volume catalog 
entry. 
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Offset 
Dec Hex 
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Field Name 


ACBOTIME 


ACBOEMPT 
ACBODSNC 


ACBODEVT 


ACBONDLB 


ACBOIOER 


ACBONVRT 


ACBOIOCA 


ACBONCAT 


ACBOSECU 


ACBOPARC 


ACBOKBUF 


ACBOLIOE 


ACBOLTEX 


ACBOLFEX 


ACBONAVA 


Hex. 
Digit 


X‘6C' 


Description 


The system time stamps of a 
data set and its index do not 
match. This indicates that the 
data has been updated sepa- 
rately. This test is greater than 
or equal, i.e., no warning jis giv- 
en if the index time stamp is 
greater than the data time 
stamp. 


Open empty data set for read 
only. 

Data set was not closed the 
last time it was processed. 


The symbolic unit specified in 
the EXTENT statements is not a 
valid VSAM device type. 

The DLBL statement is missing 
or the filename in the DLBL 
doesn’t match the ACB. 


A permanent I/O error occur- 
red while VSAM was reading 
label information from the label 
information cylinder. 


Not enough virtual storage 
space is available in the parti- 
tion for work areas, control 
blocks, or buffers. 


A permanent I/O error occur- 
red while VSAM was reading or 
writing a catalog entry. 


No entry was found in the 
catalog for this ACB. 

Security verification failed; the 
password specified in the ACB 
for a specific level of access 
doesn't match the password in 
the catalog for that level of ac- 
cess. 

The operands specified in the 
ACB are inconsistent with each 
other or with the information in 
the catalog entry, for example, 
an open of an ESDS for keyed 
processing. 

User-specified buffers with 
keyed access (user buffers can 
be specified only with CNV ac- 
cess). 


A permanent I/O error was 
detected on the system lock 
file. 

The system lock table is not 
large enough to accommodate 
the concurrent requests. 


The system lock file is not large 
enough to accommodate the 
concurrent requests. 


The data set is not available 
because it is being updated by 
(under the exclusive control of) 


. another ACB or has been ex- 


ported by Access Method Ser- 
vices. 
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Offset . Hex. 
Dec Hex Bytes Field Name Digit Description 


ACBONOCT  X‘B4’ The VSAM catalog is not 
connected to the system on 
logical unit SYSCAT, or insuffi- 
cient virtual storage available 
for OPEN. 

ACBOACT X‘BC’ ACB was active 

ACBOOERR_ X‘CO’ Unusable output data set 

ACBOPEMP-  X'C4’ Access via empty path 

ACBOLEMP X‘D4’ LSR is specified but the data 
set being opened is empty 
(which implies that it is to be 
loaded) 

ACBOLKEY ; LSR is specified but the key 
length of the data set being 
opened is greater than the 
maximum key length specified 
for the resource pool. 

ACBOLBUF LSR is specified but the Cl size 
of the data set being opened is 
greater than the largest buffer 
size specified for the resource 
pool. 

ACBOLNRP ‘E4’ LSR is specified but there is no 
resource pool defined; may 
also be caused by problems 
while loading the resource. 

ACBONRST X‘E8’ Non-reusable file is not empty 

ACBOILAB X‘F8' = IKQLAB internal error 

ACBOLUNX X'FE’ OPEN detected an unexpected 
return code from the lock man- 
ager. 

ACBOCTER- X'FF’ Unexpected return from 
catalog locate function. 

Close error return codes 

ACBOINCB X‘02' Invalid control block, or ACB 
address not in OAL 

ACBCALR X'04' ACB already closed 

ACBCDSFL x‘4C' CLOSE disposition failed 

ACBCNVRT X‘88' Insufficient space available in 
user's partition for work area. 

ACBCIOCA X‘90' Permanent I/O error occurred 
while VSAM was reading or 
writing a catalog entry. 

ACBCNCAT X‘94’ No catalog entry found 

ACBCIOER X‘B8’ Permanent !/O error occurred 
while VSAM was completing 
outstanding I/O requests. 


ACBCBUSY X‘BC’ ACB busy. 


ACBCDTFA X‘FC’ Automatic close of the DTF for 
a managed-SAM file failed. 





Figure 5.12 Access Method Control Block (ACB) description and format (part 5 of 6) 
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Offset Hex. 
Field Name Digit Description 


Dec Hex Bytes 
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ACBAMBUF 
ACBDDNM 
ACBPRTCT 
ACBUAPTR 


ACBBFPL 


ACBEXLST 
ACBBPLB 


ACBOFLG2 


ACBKEEP 
ACBDELET 
ACBDATE 


ACBMSGLN 
ACBMSGAR 
ACBNMPTR 
ACBEND 


X‘80' 
X'40' 
X‘20' 
X‘10' 
X‘'08' 
X‘04' 
X'02’ 


X'01' 


Length of buffer pool 
DDname 
Pointer to password 


Pointer to user work area, or to 
CAXWA if ACB is for a catalog 


Pointer to first data buffer in 
buffer pool 

User exit list pointer 

BAM parameter list pointer 
Reserved 

Second OPEN/CLOSE flag 
byte 

Reserved 

Reserved 


Reserved 
Reserved 


Close disposition is KEEP 
Close disposition is DELETE 


Close disposition is controlled 
by the expiration date 
Reserved 


Message area length 
Message area 

Pointer to 44 character name 
End of ACB 





Access Method Control Block (ACB) description and format (part 6 of 6) 


Section 5. Data Areas 5.21 


Access Method Data Statistics Block (AMDSB) 


The AMDSB contains statistical information about record processing in the 
data set. It also contains some of the data set’s attributes and specifications. 
The AMDSB is built, using the data index or index catalog record’s 
AMDSSB group occurrence, when the cluster is opened. The AMBL 
(AMBLDTA/AMBLIX) points to the data and index AMDSBs. 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


General 
AMDCOMM Common part 
AMDSBID X‘60' AMDSEB identifier 
AMDATTR Attributes of the data set 


AMDATTR1 Attributes (first byte): 

AMDDST Key-sequenced data set 

AMDWCK , Check each record when it is 
written 

AMDSDT Sequence set is stored with the 
data 

AMDREPL Replication 

AMDORDER Use the volumes in the same 
order as in the volume list 

AMDRANGE : The data set is divided into key 
ranges 

AMDRRDS ‘02’ Relative record data set 

AMDSPAN ‘O1’ Spanned records 


AMDLEN Length of AMDSB in the 
catalog 


AMDNEST Number of entries in an index 
section (in all cases except 
AMDSB group occurrence in 
data record of AIX)! 


AMDAXRKP Relative key position in base 
record (only for AMDSB group 
occurrence in data record of a 
AIX)! 

AMDRKP Relative key position 

AMDKEYLN Key length 


AMDPCTCA Percentage of free control 
intervals in the control area 

AMDRCFRM SAM ESDS record format 
information 

AMDIMPDF ‘80’ File definition was by implicit 
define 

AMDNCIFT ‘20’ Non-control-interval format 
(processable by SAM only) 

AMDNCAFT ‘10’ Non-control-area format (This 
bit indicates the file is a SAM 
ESDS. If both this bit and 
AMDNCIFT are off, the file is a. 
VSAM ESDS.) 

AMDSBLKD ‘04’ The SAM record format is 
blocked. 

AMDSVAR : The SAM record format is 
variable length records. 

AMDSFIXD The SAM record format is fixed 
length records. 





Figure 5.13 Access Method Data Statistics Block (AMDSB) description and format 
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Offset 


Dec Hex 
11 B 
12 Cc 
14 E 
16 10 
20 14 

| 24 18 
28 1C 
28 1c 

| 29 1C 
32 20 
32 20 
36 24 
40 28 
41 29 
44 2C 
48 30 
48 30 
48 30 
56 38 
56 38 
58 3A 
58 3A 
60 3C 
64 40 
68 44 
72 48 
76 4C 
80 50 
84 54 
88 58 
92 5C 
Figure 5.13 
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Bytes 
1 


2 


NM NM 


Se ee > 


hb 


Field Name 
AMDPCTCI 


AMDCIPCA 


AMDFSCA 


AMDFSCI 


AMDCINV 
AMDLRECL 


AMDHLRBA 


AMDNSLOT 
AMDBLREC 


AMDSSRBA 


AMDMAXRR 
AMDPARDB 
AMDATTR3 
AMDUNQ 


AMDSTAT 
AMDSTMST 
AMDSTSP 
AMDSTAT1 
AMDNIL 
AMDNEDB 
AMDNEXT 


AMDNLR 


AMDDELR 
AMDIREC 
AMDUPR 
AMDRETR 
AMDASPA 


AMDNCIS 


AMDNCAS 


AMDEXCP 


Hex. 
Digit 


X‘80’ 
X'00' 


Description 


Percentage of free bytes in the 
control interval 


Number of control intervals in a 
control area 

Number of free control intervals 
in a control area 

Number of free bytes ina 
control interval 

Control interval size 


Maximum record size. Fora 
SAM ESDS, this is the maxi- 
mum SAM logical blocksize. 


RBA of the high-level index 
record 


Number of relative record slots 


SAM LRECL for a fixed- 
blocked SAM ESDS 


RBA of first sequence set 
record 


Max. relative record number 
Pointer to first ARDB 
Attributes 


Non-unique keys in AIX 
Unique keys in AIX 


Reserved 
Reserved 


Statistics 


Statistics 
System time stamp 
System time stamp 


Number of index levels 
Number of EDBs 


Number of extents in the data 
set 


Number of user-supplied 
(logical) records in the data set 


Number of deleted records 

Number of inserted records 
Number of updated records 
Number of retrieved records 


Number of bytes of free space 
in the data set 

Number of times a control 
interval was split 

Number of times a control area 
was split 

Number of times EXCP was 
issued by VSAM 1/0 routines 


Access Method Data Statistics Block (AMDSB) description and format 
(part 2 of 5) 
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Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


General Continue 


AMDSHOPT 

AMDSHR1 X‘80' 
AMDSHR2 X‘40' 
AMDSHR3 X*20' 
AMDSHR4 X‘10’ 


AMDCDSN 
AMDDSN 


AMDHWRBA 


AMDATTR2 
AMDREL 
AMDLOAD 
AMDSPEED 
AMDINDX 
AMDSHR 
AMDKR 


AMDMXARC 


AMDCAT 
AMDACT 
AMDFILT 
AMDPVOL 


AMDAMS 
AMDAIX 
AMDPATH 
AMDBASE 
AMDATTR4 
AMDARCH 


AMDARCHS 


AMDRCHAN 


AMDAIRKP 


Share option byte 
Share option 1 
Share option 2 
Share option 3 
Share option 4 


Pointer to catalog ACB 


Catalog control interval number 
for data (index) 

High-water RBA for the data 
set 


Attributes (second byte): 
Release unused space 

Load mode 

Speed option 

index option 

Sharing 

Key-range processing, dupli- 
cate of AMDRANGE 

This component contains both 
fixed block and CKD files (set 
only when a mixed architecture 
index opens itself). 

AMDSEB for catalog 

AMDSB test and set byte 

User area (ISAM compatibility) 
Pointer to volume list 


AMS flag byte 

Alternate index 

Access via path 

Access via base 

Attributes (fourth byte): 

Data component: component 
resides on a fixed block device. 


Index component: high-level 
index is on a fixed block de- 
vice. 

Sequence set resides ona 
fixed block device (index com- 
ponent only). 

Relocating channel. 
IJBRCHAN (defined in the 
MAPSSID mapping macro of 
the supervisor) is on in the 
Subsystem Identification Block 
with the name SUPDB. It is nec- 
essary to build a Fix List for 
1/0. 

Relative key position in base 
record (only in data AMDSB of | 
AIX)! 


lFor more details of these fields, see the explanation of the AMDSB group 





occurrence. 


Figure 5.13 Access Method Data Statistics Block (AMDSB) description and format 
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Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


Local Statistics 


AMDLSTAT 
AMDLNIL 
AMDLNEST 


AMDLNLR 


AMDLDELR 


AMDLIREC 


AMDLUPR 


AMDLRETR 


AMDLASPA 
AMDLNCIS 


AMDLNCAS 


AMDLEXCP 


AMDEXEXT 


AMDBCBNO 
AMDBFREE 
AMDFSBCB 


AMDFFBCB 
AMDCCWA 


AMDHERBA 


AMDCIMLT 


Local statistics 

Local number of index levels 
Local number of entries in the 
index section 

Local number of user-supplied 
(logical) records 

Local number of deleted 
records 

Local number of inserted 
records 

Local number of updated 
records 

Local number of retrieved 
records 

Local bytes of free space 
Local number of control 
interval splits 

Local number of control area 
splits 


Local number of EXCPs issued 
by VSAM I/0 routines 


Exception Exit 


Exception exit 


Buffer Management Information 


Number of buffers 
Number of unassigned buffers 


Address of the first BCB (for 
LSR: address of the BSPH) 


Address of the first free BCB 


Pointer to BKPHD, which is the 
first control block in the FCDB 
area. The rest of the FCDB 
area is divided into 64-byte 
FCDBs, which are suballocated 
as needed for CCB(s), CCW(s), 
FXL(s), and IOARG(s). 


High RBA of extent currently 
being processed for a SAM 
ESDS (Same value as 
EDBHIRBA) 


Cl multiplier, specifies the 
number of Cls that are to be 
considered as a CA in certain 
parts of Record Management 
processing. For a SAM ESDS, 
it has a value of one; otherwise, 
it has the same value as 
AMDCIPCA. 





Figure 5.13 Access Method Data Statistics Block (AMDSB) description and format 
(part 4 of 5) 
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Offset Hex. 
Dec Hex Bytes Fleld Name Digit Description 


AMDRCFM1 Same as AMDRCFRM; zero if 
not a SAM ESDS. 

AMDIMPD1 X‘80' Same as AMDIMPF. 
AMDONCIF1 X‘20' Same as AMDNCIFT 
AMDNCAF1 x‘10' Same as AMDNCAFT 
AMDSBLK1 X‘04' Same as AMDSBLKD 
AMDSVAR1 X‘02' Same as AMDSVAR 
AMDSFIX1 X‘01' Same as AMDSFIXD 





Reserved 
EDB Header 
AMDFSEDB Address of first EDB 
Reserved 
AMDLEDB Length of EDB 
Figure 5.13 Access Method Data Statistics Block (AMDSB) description and format 
(part 5 of 5) 
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Address Range Definition Block (ARDB) 


The ARDB contains information about space allocated and space actually 
used by a data set. The block is built by the Open module from information 
in the data set’s catalog record. The ARDB is updated by record manage- 
ment routines as additional space is used. The first ARDB in an ARDB 
chain is pointed to by the AMDSB (AMDPARDB). 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


ARDID Control block identifier 

ARDTYPE Identifies the type of space 
defined by the ARDB: 

ARDKR One key range of a key-range 
data set 

ARDHLI The total index of a key- 
sequenced data set that does 
not have the sequence set with 
the data or 


The non-sequence set levels of 
a key-sequenced data set's in- 
dex, when the sequence set is 
stored with the data : 
The sequence set of a key- 
sequenced data set, when the 
sequence set is stored with 





data 

ARDUOVEFL Use overflow volumes for this 
key 

ARDEOD End of data ARDB 

ARDLGCC Device contains more than 256 
cylinders 

Figure 5.14 Address Range Definition Block (ARDB) description and format 
(part 1 of 2) 
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5.28 


Offset 
Dec Hex 


10 
20 «14 
24 «18 


28 #10 
32 20 


36 4 =—24 


Bytes 


2 


Hex. 
Field Name Digit 


ARDLEN 
ARDPRF 


ARDPRFMT = X‘80'’ 
X‘40' 
ARDNPTR 


ARDHRBA 


ARDEDBA 
ARDPREL 
ARDERBA 


ARDPKEYS 
ARDHKRBA 


ARDVOLNM 


Description 


Length of the ARDB 
Address range definition 
preformat byte (this byte is a 
literal copy of the catalog re- 
cord byte called ITYPEXT) 
Sequence set with data 

No preformat done 


Reserved 


Address of the next ARDB in 
the ARDB chain 

The RBA of the next free-space 
control interval at the end of 
the data set (RBA of VSAM 
SEOF) 


Pointer to the active EDB 
Pointer to related ARDB (index) 


The RBA of the highest control 
interval allocated to the key 
range 


Pointer to ARDKEYS 


The RBA of the data set control 
interval containing the key 
range’s high-key value 


Number of volumes in list 


The following ten-byte entry, called an ARDB volume group, repeats for each volume in this 


ARDB. 


38 26 
38 26 


44 2C 


46 2E 
46 2E 
47 2F 


Variable 
(after last 
volume group) 


Figure 5.14 
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10 
6 


2 


2 
1 
1 
Variable 


ARDVOLGP 
ARDVOLSR 


ARDRELRP 


ARDSYMU 
ARDSUCLS 
ARDSUNUM 
ARDKEYS 


Voiume serial (VOLSER) list 
The serial number of the 
volume containing the highest 
RBA allocated to the key range 
Catalog relative replication 
number 

Symbolic unit 

Symbolic unit class 

Symbolic unit number 

Space reserved for the key 
range’s low and high key 
values. The length of this field 
equals twice the key length. 
Pointed to by ARDPKEYS. 





Address Range Definition Block (ARDB) description and format 
(part 2 of 2) 
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Buffer Control Block (BCB) 
The BCB consists of a buffer control entry that describes each buffer re- 
quested by the user and each buffer required for preformat processing. 
Each buffer control entry contains function codes, status indicators, and 
RBAs to describe the buffer. The buffer control entry also contains the 
address of the data buffer, the associated channel program built in the 
CCWAREA, and the next BCB in the chain. The buffer control entry is 
created by Open and released by Close. The BCB is the interface between 
the I/O Manager and the Buffer Manager modules. The BCB is pointed to 
by the PLH (PLHDBCB points to the data BCB and PHLXBCB points to 
the index BCB). IKQIODRB (see I/O Driver Block) maps the BUFRIODR 
and BUF WIODR fields. 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


BUFNBCB Address of the next BCB entry 

BUFCHAIN Offset to chain pointer (equate 
value) 

BUFCBAD Buffer address 

BUFRIODR Read |/O driver block (see 
1ODRB) 

BUFCURRU Read symbolic unit number 

BUFBKSTR Number of physical blocks to 
read : 

BUFRSTBB Starting block of the CA to be 
read (fixed block device) 

BUFRSEEK Computed DASD address for 
read 


BUFRM M (Contains X‘80' for an RPS 
device) 

BUFRDSK Offset to read MBBCCHHR 
(equate value) 


BUFRBB BB 
BUFRCC cc 


BUFRBBBB Displacement to the first biock 
in the CA to be read (fixed 
block device) 


BUFRHH HH 

BUFRR R 

BUFCRRBA RBA for the read 
BUFRLPMB Address of the read LPMB 


BUFWIODR Write |/O driver block (see 
IODRB) 


BUFCURWU Write symbolic unit number 
BUFCKIN Write initialize area 


” BUFBKSTW Number of physical blocks to 
write 
BUFWSTBB Starting block of the CA to be 
written (fixed block device) 





Figure 5.15 Buffer Control Block (BCB) description and format (part 1 of 3) 
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5.30 


Offset 
Dec Hex 


Figure 5.15 
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Field Name 


BUFWSEEK 


BUFWM 
BUFWTSK 


BUFWBB 
BUFWCC 
BUFWBBBB 


BUFWHH 
BUFWR 
BUFCWRBA 
BUFWLPMB 
BUFFLAG 


BUFFLAG1 
BUFALLF1 


BUFIOS 


BUFCMW 
BUFCFMT 
BUFCRRD 
BUFWRIGN 


BUFPFMT 


BUFCVAL 
BUFSSRCD 
BUFRDIGN 


BUFFLAG2 
BUFALL2 


BUFPURG'1 
BUFPURG2 
BUFRIXRD 

BUFWRINV 


BUFRDAHD 
BUFRES2 


Hex. 
Digit 


Description 


Computed DASD address for 
write 


M (Contains X‘80' for an RPS 
device) 

Offset to write MBBCCHHR 
(equate value) 


BB 
cc 


Displacement to the first block 
in the CA to be written (fixed 
block device) 


HH 

R 

RBA for the write 

Address of the write LPMB 
Flag bytes 


Flag byte 1 

BUFIOS + BUFRDAHD + 
BUFCVAL + BUFSSRCD + 
BUFRES1 

BUFCMW + BUFCFMT + 
BUFCRRD + BUFPFMT 

Write indicator 

Format writer indicator 

Read indicator 

Write ignored; retry because 
either the wrong |/O manager 
was entered or the write opera- 
tion was not performed due to 
an 1/0 error on another buffer. 
(BUFCMW temporarily turned 
off.) 


Format remainder of control 
area 

Buffer contents are valid 
Buffer is a sequence set record 
Read ignored; retry because 
either the wrong |/O manager 
was entered or the read opera- 
tion was not performed due to 
an 1/O error on another buffer. 
(BUFCRRD temporarily turned 
off.) 


Flag byte 2 

BUFPURG1 + BUFPURG2 + 
BUFRIXRD + BUFWRINV + 
BUFFREP + BUFRDAHD + 
BUFRES2 

Purge - must write or read 
Purge - format 

Replicated index read 
Control interval was written - 
another string 

Reserved 

Read ahead request 
Reserved 





Buffer Control Block (BCB) description and format (part 2 of 3) 
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Offset 
Dec Hex 


Figure 5.15 
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Field Name 


BUFBKTWI 
BUFBKTCK 


BUFWCKSK 


BUFCM 


BUFCBB 
BUFCCC 
BUFCHH 
BUFCR 


BUFVCCHH 
BUFVCCB 

BUFERFLG 
BUFERALL 


BUFEIOER 


BUFENTCM 
BUFBDSK 


BUFSTRID 
BUFCNOI! 


BUFNABCB 
BUFMDBTS 
BUFUCHUP 


BUFUCHDN 
BUFBSPH 


BUFFLAG3 
BUFUSE 
BUFHDSID 


BUFAMDSB 
BUFACB 


Hex. 
Digit 


Description 


Write check initialize area 


Number of physical blocks to 
check 


Computed DASD address for 
check 


M (Contains X‘80’ for an RPS 
device) 

BB 

cc 

HH 

R 


CCHH for replicated index read 
CCB address 

1/0 error indicator 

BUFEIOER + BUFENTCM + 
BUFBDSK 

1/O error On this buffer 

Used by IKQIOB (see bit 
(OMERP2 in IOWKA) 

Buffer operation not complete 
2314 seek incorrect 


String ID of this set of buffers 
No. of blocks in control interval 
to process 

Next BCB in AMDSB chain 


BCB Extension for Local Shared Resources 


Modification mask (one bit per 
transaction - refer to BSPH) 


Address of previous BCB in 
chain 


Address of next BCB in chain 
Address of BSPH 

Reserved 

Reserved 

Buffer use byte (X‘FF’ =in use) 


Catalog ACB address (4 bytes) 
and Cl number (3 bytes) of the 
catalog record for this index or 
data component 


Reserved 
Pointer to AMDSB 
Pointer to the ACB 





Buffer Control (BCB) description and format (part 3 of 3) 
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Block Pool Header (BKPHD) 


The BKPHD is the first control block in the FCDB area. The rest of the 
FCDB area is divided into 64-byte FCDBs, which are suballocated as 
needed for CCW(s), CCB(s), FXL(s), and IOARG(s). The BKPHD points 
to the first unallocated FCDB and is pointed to by the AMDSB. It is built 
by IKQOPN and can be extended by IKQIOA/IKQIOC. 


Dec Hex 


Field Name 


BKPLENG 


BKPHDECB 


BKPHDCOM 
BKPHWAIT 


BKPHDTS 
BKPHRSAV 


BKPHRS13 
BKPHRS14 
BKPHRS15 


BKPHRSOO 
BKPHRSO1 


BKPHDBHD 
BKPHIBHD 

BKPSPCHN 
BKPERCCB 


BKPFSTBK 
BKPSTECB 


BKPSTCOM 
BKPSWAIT 


BKPSTTS 


Equate values 


BKPSIZE 


BKPBLKSZ 
BKPNOBKS 


Description 


Length of the pool of blocks 
Available 
Control allocation of blocks 
Not used 


Communications byte 
Wait flag 


Allocation test and set byte 


Space for saving registers 
during steal BCB 


Save register 13, (original PLH) 
Save register 14 


Save register 15 during ‘‘buffer 
steal’ (overlaid by R9) 


Save register 0 
Save register 1 
Save register 2 
Save register 3 
Save register 4 


Save data buffer header during 
steal BCB 


Save index buffer header 
during steal BCB 


Address of next area of blocks 


Address of error CCB (first 
error CCB in VSAM error 
queue) 


Address of first available block 
ECB - steal BCB, other string 
Available 


Communications byte 
Wait flag 


Test and set byte 


Size of space to extend pool 
(2048) 

Size of a block (64) 

Number of blocks in new space 
(32) 





Figure 5.16 Block Pool Header (BKPHD) description and format 
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Buffer Header (BHD) 
The BHD contains information about buffers and buffer processing. The 
PLH points to the data and index BHDs. The BHD is created by Open and 
released by Close. 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


BHDNO Number of buffers. 
BHDLEN Length of control block. 


BHDRMAX Maximum number of buffers 
available. 


BHDRMIN Minimum number of buffers 
available. 


BHDBRC Read-ahead count. 


BHDHFLAG Buffer header flag 1: 

BHDRAHOK Read-ahead OK flag. 

BHDIXREP Replicated index read indica- 
tor. 

BHDNSKD 1/0 with wait for no-schedule 
queue (BCBNSKDQ). 

BHDSKD 1/0 with wait for schedule 
queue (BCBSKDQ). 

BHDSTL A ‘‘buffer steal’ has been 
performed on this BHD. 


BHDFLAG Buffer header flag 2. 


BHDMVBCB ‘02’ ‘Free buffer’ is really a move. 
Reserved 


BHD1STF Address of chain of free 
buffers. 


BHDSKDQ Address of BCB chain with 1/O 
scheduled. 


BHDNSKDQ Address of BCB chain with 
pending I/O. 


BHD1STW Address of first BCB requiring 
1/0. 


BHDID : BHD identification. 
Reserved. 


BHDIOCNT 1/O count of no-schedule 
queue (BCBNSKDQ). 


BHDWMIN Write threshold. 

BHDTRACT Temporary read-ahead count. 

BHDQNO Number of BCBs on queues. 
Reserved. 

BHODCCHH CCHH of last held control area. 

BHDCCBCH CCB chain pointer. 





Figure 5.17 Buffer Header (BHD) description and format 
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Buffer Subpool Header (BSPH) 

The Buffer Sub-Pool Header contains information concerning a buffer 
subpool. The BSPHs are chained together in a sequence of ascending buffer 
sizes. AMDFSBCB points to the BSPH associated with a particular data set 
component. The address of the first BSPH is stored in the VSRT. 


5.34 







Offset 
Dec Hex 






The use chain is a chain of all BCBs in the subpool. The least recently used 
BCB is at the bottom of the chain and the most recently used BCB is at the top. 


Figure 5.18 
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Bytes 


Field Name 


Hex. 
Digit 






























0 0 1 BSPHID X'72' Control block identifier 

1 1 1 Reserved 

2 2 2 BSPHLEN Length of BSPH 

4 4 4 BSPHNM Name ‘BSPH’ 

8 8 4 BSPHNBSP Pointer to next BSPH in pool 

12 Cc 2 BSPHBFNO Number of buffers in this 
subpool 

14 E 2 Reserved 

16 10 4 BSPHMDBN Number of modified buffers in 
this subpool 

20 14 4 BSPHFRBN Number of free buffers in this 
subpool 

24 18 4 BSPHBCB Address of first BCB in the 
subpool 

28 1C 4 BSPHMDBT 32-bit modification mask. Each 
bit corresponds to a transac- 
tion which has modified the 

buffer 

32 20 4 BSPHBSZ Length of each buffer in this 
subpool 

36 24 4 BSPHCPLH Address of the PLH currently in 
control of the BSPH 

40 28 16 Reserved * 

56 38 BSPHUTOP Pointer to the top of the use 
chain 

60 3C 4 BSPHUBTM Pointer to the bottom of the use 
chain * 

64 40 4 BSPH1ST Address of the first BSPH in 
the buffer pool 

68 44 2 BSPHECB Control bytes for changing use 
chain 

70 46 1 BSPHCOM — Communications byte 

BSPHWAIT X‘80' ‘Wait flag 
71 47 1 BSPHTS Mask byte for test and set 


Description 
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Channel Command Word (CCW) 


Record management uses the CCW macro to map a CCW slot within an 
FCDB for building CCW strings. 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


CCWAREA Length of one CCW 
CCWOP Operation code 
CCWARG Argument address 
CCWFLAG CCW flags 


CCWDCH X'80' Data chaining 

CCWCCH X‘40' Command chaining 
CCWSLI X‘20' Suppress incorrect length 
CCWSKIP x‘10’ Skip data transfer 


Reserved 


CCWCNT Count field 


CCWOP1 Next CCW operation code 


CCWSRHE X‘31' Search ID equal 
CCWSSEC X‘23' Set sector 
CCWWTCKD- X‘1D' Write count key data 
CCWSKHD X‘1B' Seek head 
CCWRDC x‘12' Read count 

CCWTIC x‘08' TIC 

CCWSEEK X‘07’ Full seek 

CCWRD X‘06’ Read data 

CCWWT Xx'05' Write data 

CCWNOP X‘03' NOP 





Figure 5.19 Channel Command Word (CCW) description and format 
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CCW Skeleton DSECT (IKQCWS) 


The I/O manager (IKQIOA/IKQIOC) uses the IKQCWS DSECT to map 
the CCW skeletons used for building CCW strings. 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


CWSOFSET Offset of CCWs together 
CWSFLAG CCW skeleton flag byte 1 


CWSPLHAD — X‘80' BUFVCCHH in the BCB is used 
as the |/O area for the Read 
Count CCW. 

CWSIVLR X‘40' The R field (WKAR) in the 
PLHWAREA is set to X‘FF’ (or 
X‘00’ for a Write Data 2 CCW) 
and forces a Search ID Equal - 
TIC CCW sequence to be 
placed in the CCW chain during 
the next call to the Build CCW 
(BDCCW) routine. 

CWSBFADC X‘20’ The address of the buffer is 
used as the I/O address argu- 
ment for the CCW. The physi- 
cal block size in the LPMB is 
used as the CCW count field. 
The number of blocks to proc- 
ess is decremented by one. 
BUFCNOI, in the BCB, controls 
assignment of the correct loca- 
tion in the buffer to be used as 
the CCW I/O address when the 
Cl spans more than one physi- 
cal block. 

CWSARGAD_  X‘10' The |/O arguments in the 1/0 
Data Block are used as CCW 
1/O address arguments. 

CWSASTER X‘08' The address of the previous 
CCW is placed in the current 
CCW I/O address (used only 
by the TIC CCW). 


The TIC op code is set to X‘07' 
and the 1/O address is set to -8 
in the CCW skeleton. Adding 
the address of the TIC CCW in 
the CCW block to this field 
causes the resulting address to 
be pointing to the previous 
CCW; the overflow converts the 
op code to the correct value of 
X‘08’. 

CWSINCR X‘04' The increment R (update the 
DASD address) subroutine is 
invoked to update the CCHHR 
field in the BCB. (it is used for 
checking if the next CCW to be 
built is for the next contiguous 
physical block in the data set.) 
The R field (WKAR) in the 
PLHWAREA is also increment- 
ed by one. 





Figure 5.20 CCW Skeleton DSECT (IKQCWS) description and format (part 1 of 2) 
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Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


CWSDECR The Search ID Equal |/O 
argument (R byte of the 
CCHHR) for the Write Count 
CCW is decremented by one. 
This only occurs when the 
CCW preceding the Write 
Count CCW is a TIC to the 
Search ID Equal CCW. (This 
TIC may be followed by a TIC 
to the Write Count CCW when- 
ever the Write Count CCW 
starts a new CCW biock, but it 


is ignored, and the Search ID 
Equal !|/O argument is still de- 
cremented.) Succeeding Write 
Count CCWs do not decrement 
the R until an intervening 
Search ID Equal - TIC se- 
quence occurs. 

CWSNOOPT Space is allocated in the 1/O 
Data Block for use as the 1/O 
address argument field. 
MBBCCHHRKDD iis initialized 
(K=0Q). 

CWSFLAGC CCW skeleton flag byte 2: 


CCWSRPS The current I/O arguments in 
the |/O Data Block are located 
and updated with the device 
type for the SECTVAL (SVC 75) 
in the Build Channel Program 
routine (BLDCP). The block- 
size was previously initialized 
by the Seek CCW. 

CWSOPCOD Op code specified in the 
Locate parameter field for 
read, read replicated, and write 
operations (defined under 
IOARG write-up). 


CWSCCW CCW to build 
Equate Value 


CWSLENTH ' One CCW string argument 
length 





Figure 5.20 CCW Skeleton DSECT (IKQCWS) description and format (part 2 of 2) 
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CCW Skeletons 

These are the I/O Manager (IKQIOA) CCW skeletons that CWS maps. 
They are used for building CCW strings. Figure 5.21 shows the CCW 
Skeletons description and format for CKD devices. Figure 5.22 shows the 
CCW Skeletons description and format for fixed block devices. 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


Head Seek CCW 


SCCWSK X‘08' Length of contiguous CCWs 
(FCBCINC) 


X'51’ CCW build flags (CWSIVLR + 
CWSARGAD + CWSNOOPT) 


X‘00’ CCW build flags 
X‘1B’ CCW opcode (CCWSKHD) 
Xx‘01" Offset into ARG address 


X‘40’ Command chain flag 
(CCWCCH) 


Xx‘00' Reserved 
! X‘0006' Count field 
Xx‘00' End of chain indicator 


Search CCW 
1 SCCWCRH X‘10' Length of continuous CCWs (2 


x FCBCINC) 

X‘10' CCW build flags (CWSARGAD) 

X‘00' CCW build flags 

X‘31' CCW op code (CCWSRHE) 

X‘000003' Offset into ARG address 

X‘'40' CC flag 

X‘00’ Reserved 

X‘0005’ Count field 

X‘08' Length of contiguous CCWs 
(FCBCINC) 

X‘08’ CCW build flags (CWSASTER) 

X‘00’ CCW build flags 

X‘Q07’ CCW op code minus carry 
(CCWTIC - 1) 

X‘FFFFF8’ Offset in CCW chain from 
here (minus 8) 

4X‘00' Reserved 

X‘00' End of chain 





Figure 5.21 CCW Skeletons (CKD devices) description and format (part 1 of 3) 
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Hex. 
Bytes Field Name Digit Description 


Format Write CCW and Write CCW 


1 SCCWFMTW_ X'‘08' Length of contiguous CCWs 
(FCBCINC) 


1 X‘'13' CCW build flags (CWSARGAD 
+ CWSDECR + CWSNOOPT) 


X‘00’ CCW build flags 

X'1D' CCW op code (CCWWTCKD) 
X‘000003' Offset into ARG address 
X‘80" Data chain flag (CCWDCH) 
Xx‘00’ Reserved 

X‘0008' Count field 


x‘08' Length of continuous CCWs 
(FCBCINC) 


X'24' CCW build flags (CWSBFADC 
+ CWSINCR) 


X'00' CCW build flags 
X‘05' CCW op code (CCWWT) 
X‘000000’' Offset into buffer address 
Xx‘40’ Command chain flag 
(CCWCCH) 

1 X‘00' Reserved 

2 X‘0000' Count field 

1 X‘00’ End of chain 

Write CCW 


1 SCCWWT Xx‘08’ Length of contiguous CCWs 


(FCBCINC) 


X'64’ CCW build flags (CWSBFADC 
+ CWSINCR + CWSIVLR) 


X‘00' CCW build flags 
X‘'05' CCW op code (CCWWT) 
X‘000000' Offset into buffer address 


X‘40’ Command chain flag 
(CCWCCH) 


X‘00' Reserved 

X‘0000’ Count field 

X‘'00’ End of chain 
Index Read CCW and Read CCW 


1 SCCWIXRD X‘08' Length of contiguous CCWs 
(FCBCINC) 


X‘80' CCW build flags (CWSPLHAD) 
X‘00’ CCW build flags 

X‘12' | CCW op code (CCWRDC) 
X'000000' Offset into PLH address 


X‘60' SLI and command chain flag 
(CCWCCH + CCWSLI) 


X'00’ Reserved 
X‘0004' Count field 


SCCWRD X‘08' Length of contiguous CCWs 
(FCBCINC) 


X‘24' CCW build flags (CWSBFADC 
+ CWSINCR) 


X‘00' CCW build flags 
x‘06' CCW op code (CCWRD) 





Figure 5.21 CCW Skeletons (CKD devices) description and format (part 2 of 3) 
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Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


X'000000' Offset into buffer address 


X‘40’ Command chain flag 
(CCWCCH) 


X‘00' Reserved 
2 X'0000' Count field 
1 X‘00’ End of chain 
Read Back Check CCW 


1 SCCWRBCK = X'08’ Length of contiguous CCWs 
‘ (FCBCINC) 


X'24' CCW build flags (CWSBFADC 
+ CWSINCR) 


x‘00’ CCW build flags 
X‘06' CCW op code (CCWRD) 
X‘000000'_ Offset into buffer address 


X‘50’ Skip and command chain flags 
(CCWCCH + CCWSKIP) 


X‘00' Reserved 

X‘0000’ Count field 

X‘00' End of chain 
RPS Seek Head and Set Sector CCW 


1 SCCWRPS X‘08’ Length of contiguous CCWs 
(FCBCINC) 


X51’ CCW build flags (CWSIVLR + 
CWSARGAD + CWSNOOPT) 


X'00’ CCW build flags 
X‘1B’ CCW op code (CCWSKHD) 
X‘'000001' Offset into ARG address 


X‘'40’ Command chain flag 
(CCWCCH) 


x‘00' Reserved 
X‘0006' Count field 


X‘08' Length of contiguous CCWs 
(FCBCINC) 


x‘00’ CCW build flag 

Xx‘80' CCW build flag (CCWSRPS) 
X‘23' CCW op code (CCWSSEC) 
X‘OO000B’ Offset into ARG address 


X‘40' Command chain flag 
(CCWCCH) 


X‘O0’ Reserved 
X‘0001’ Count field 
X‘O0' End of chain 





Figure 5,21 CCW Skeletons (CKD devices) description and format (part 3 of 3) 
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Offset 
Dec Hex 


Figure 5.22 


Licensed Material —- Property of IBM 


Hex. 


Bytes Field Name Digit 


Define Extent CCW 
SCCWDEX X‘08' 
X‘10° 
X‘'00’ 
X'63’ 


X‘000000' 


X‘40' 


X‘00’ 
2 X‘0010’ 
1 X‘'00' 
Locate CCW 
1 SCCWLOC X‘08’ 


X‘10° 
X‘00’ 
X'43’ 


X‘000000 


X‘40' 


1 X‘00’ 

2 X‘0008' 
1 X‘00' 
Write CCW 

1 SCCWWT X‘08' 
X'20' 
X'01' 


X'41? 


X‘'000000' 


X'CQ' 


x‘00' 
2 X‘0000’ 
1 X‘00' 
Index Read CCW and Read CCW 
1 SCCWRD X‘08' 


X‘'20' 
X‘06' 


X*42’ 


X‘000000' 


X'CO' 


X‘00' 
X‘0000' 
X‘00’ 


Description 


Length of contiguous CCWs 
(FCBCINC) 


CCW build flags (CWSARGAD) 
CCW build flags 
CCW op code (CCWDEX) 


Offset into argument 
address 


Command chaining flag 
(CCWCCh) 


Reserved 
Count field 
End of chain 


Length of continguous CCWs 
(FCBCINC) 


CCW build flags (CWSARGAD) 
CCW build flags 
CCW op code (CCWLOC) 


Offset into argument 
address 


Command chain flag 
(CCWCCH) 


Reserved 
Count field 
End of chain 


Length of contiguous CCWs 
(FCBCINC) 


CCW build flags (CWSBFADC) 
Locate parameters op code 
(IOAWRT) 

CCW op code (CCWWRT) 
Offset into buffer address 


Command chain and data chain 
flags (CCWCCH + CCWDCH) 


Reserved 
Count field 
End of chain 


Length of contiguous CCWs 
(FCBCINC) 


CCW build flags (CWSBFADC) 


Locate parameters op code 
(IOARD) 


CCW op code (CCWREAD) 
Offset into buffer address 


Command chain and data chain 
flags (CCWCCH + CCWDCH) 


Reserved 
Count field 
End of chain 





CCW Skeletons (FBA devices) description and format 


Section 5. Data Areas 5.41 


Control Interval Work Area (CIW) 


The CIW describes a control interval split workarea. It contains workareas 
for all routines that are activated during a control interval pseudo split, 
control interval split or a control area split. It is created by IKQCISO0 
whenever a split occurs. It points to the data buffer needed in case of a split 
and is pointed to by the AMBL (AMBLCIWA). The space is acquired as 
needed by GETVIS. At completion of CI-split processing, it is freed via 
FREEVIS, and AMBLCIWA is set to zeros. 


Offset Bytes and 
Dec Hex Bit Pattern Field Name Description 
Register Save Area for IKQCIS 
CIWAVE Register save area (12 Reg.) 
CIWAVR14 Register 14 
CIWAVR15 Register 15 
CIWAVRO Register 0 
CIWAVR1 Register 1, RDF shift count on entry 
CIWAVR2 Register 2, RDF modification offset 
CIWAVR3 Register 3, RDF data work area 
Reserved 
CIWLNGTH Length of work area 
Register Save Area 
This save area is used when IKQCIS calls IKQCIL or IKQCIU. 
52 34 4 CIWCLUO3 Register 3 
56 38 4 CIWCLU14 Register 14 
Register Save Area 


inp save area is used when IKQCIL or IKQCIU calls any of the common subroutines in 
CIS. 


60 3C 4 CIWCISO3 Register 3 


64 40 4 CIWCIS14 Register 14 
Space Manager Save Area 
60 3C 4 CIWSPA14 Register 14 
64 40 4 CIWSPA15 Register 15 
68 44 4 CIWSPA03 Register 3 
IKQPFO Work Area 
72 #848 4 CIWPFO14 Register 14 
76 «=4C CIWPFOOO Register 0 
80 650 CIWPFOO1 Register 1 
84 54 CIWPFOO2 Register 2 
88 58 CIWPFOO3 Register 3 
92 5C CIWPFO04 Register 4 
96 60 CIWACB ACB pointer for TCLOSE call 
64 CIWSVC SVC2 in TCLOSE call list 
66 Unused 





pon & PHP A A 


Figure 5.23 Control Interval Work Area (CIW) description and format (part 1 of 5) 
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Offset 
Dec Hex 


72 
76 
80 
84 
88 
92 
96 


104 
108 


112 
116 


120 


48 
4c 
50 
54 
58 
5C 
60 
64 
66 


68 


6C 
70 


74 


78 
7¢ 
80 


84 
88 
BC 
90 
94 
98 
9C 


68 
6C 


70 
74 


78 


Figure 5.23 
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Bytes and 


Bit Pattern Field Name 


IKQRRP Work Area 
The work area for IKQRRP overlays the work area for IKQPFO 


4 


ON AP RP hE A 


CIWRRP14 
CIWRRPOO 
CIWRRPO1 
CIWRRPO2 
CIWRRPO3 
CIWRRBA 

CIWRRPLN 


CIWRSEOF 


IKQNCA Work Area 


4 


4 
4 
4 


4 
4 
4 


CIWNEW14 
CIWNEWO1 
CIWNEWO3 
CIWCARBA 


CIWCIRBA 
CIWNXRBA 
CIWDARDB 


IKQCAS Work Area 


yon fF Ph PAA A 


4 


CIWCAS14 | 


CIWCASO3 
CIWHINEW 
CIWSPTR 


CIWHIOLD 
CIWEPTR 


CIWAKEY 
CIWEINC 
CIWSRR 


CIWXBUFA 


IKQCIR Work Area 
Control Interval Space Reclamation Work Area 


The work area for IKQCIR overlays the work areas for IKQNCA and IKQCAS 


4 


4 
4 
4 


CIWCIR14 
CIWCIRO9 


CIWCIRO3 
CIWSAVP 


CIWCIRSW 
CIWNEXT 
CIWSPAN 
CIWRECL 


CIWNOSPL 
CIWXWRT 


Description 


Register 14 

Register 0 

Register 1 

Register 2 

Register 3 

Beginning of RBA in extent 
Preformat length 

SEOF indicator 

Unused 


Register 14 
Register 1 
Register 3 


Low RBA of data control area (new 
control area) 


Index RBA of old sequence set record 
index RBA of new sequence set record 
Data ARDB 


Register 14 

Register 3 

High section of new control area 
Pointer save section 

High section of old control area 
Entry pointer 

Address of key save area 

Entry increment bytes 


Offset of last section from the high 
section of the new control area 


Address of new index buffer 


Register 14 

Register 9 

Register 3 

Free data of pointer save for control 
interval 

Switch byte 

X‘'80' Position to next entry index 
X‘40’ Spanned entry index 

X‘20’ Space reclamation index 


X‘10° No control area split indicator 
X'08’ Write index indicator 





Control Interval Work Area (CIW) description and format (part 2 of 5) 


Section 5. Data Areas 5.43 


Offset Hex. 


Dec Hex Bytes Field Name Digit Description 


5.44 


Figure 5.23 
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2 
8 
24 


CIWLASMD 


CIWLID 
CIWLTST 


CIWLDSID 
CIWLDSCI 
CIWLACB 
CIWLSOPT 


CIWLFLG 
CIWLIN 


CIWLOUT 
CIWRES 


IKQCIS Work Area 


32 
4 
4 
4 


1 


CIWCIWA 
CIWRCDCT 
CIWSPLPT 
CIWFPTR 


CIWFRDF 


CIWCLNUP 


CiWDCRDB 
CIWNIRBA 
CIWOLDCT 


CIWFLAGS 
CIWNCAS 


CIWCASDN 


CIWUHKR 
CIWCLN 


CIWCIR 


IKQIXE Entry Stack 


0 
12 
4 


4 
2 
1 


CIWENTRY 
CIWENT1 
CIWRBA1 
CIWKADD1 
CIWKL1 


CIWFLG1 
CIWENTOK 


CIWINC 
CIWSPLIT 
CIWNOIO 


Reserved 
IKQLASMD parameter list 


Request type 
Test request 


Data set identification 
Control interval number 
Pointer to catalog ACB 
Share option 

Flag byte 

Input indicator 

Output count 

Resource name field 
Unused 


Copy of PLH work area 

Record count save for move 
Pointer to modification point 
Pointer to next record to be 
moved 

Pointer to RDF of the next 
record 

RBA of control interval requires 
an update 

Save of current ARDB pointer 
RBA of new sequence set 

Save of RDF count 

Flags 

Control area split needed to 
continue 

Control area split has been 
executed 

ARDHKRBA requires update 
Control intervals written require 


clearing 
Space reclamation executed 


Unused 


Index entry data stack 

First stack position 

RBA to be put in entry 
Address of key 

Length of key 

Flag byte 

These two bits are used to 
indicate that this entry is valid 
Index record in core 

Split entry to be done 

No execution of input/output 
yet (1/0 is required) 





Control Interval Work Area (CIW) description and format (part 3 of 5) 
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Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


CIWIXLV1 Index level 


CIWENT2 Second stack position (Used to 
hold contents of stack 1 when 
stack 1 is needed for further 
processing.) 


CIWRBA2 RBA 

CIWKADD2 Key pointer 

CIWKL2 Key length 

CIWFLG2 Same as CIWFLG1 

CIWIXLV2 Index level 

CIWSTKND End of stack 

CIWEKEYA Address of index enter key 
Scratch Buffer Parameter List 
CIWDCNV Scratch Cl descriptor 
CIWDRBA Scratch control interval RBA 
CIWDBUF Buffer parameter list 
CIWDBCB Address of control block 
CIWDBAD Address of buffers 
CIWDCIDF CIDF descriptor 
CIWDFSO Free space offset 
CIWDFSL Free space length 
CIWDSW Switch byte 

Reserved 

CIWDCSZ Length of buffer - 10 
IKQIXE Work Area 
4 CIWIXEBA Caller base save 
4 CIWIXERT Return register save 
4 CIWIXERO Save GETVIS length 
4 CIWIXER1 Save GETVIS address 
Work Area for Linkage from IKQCIS to IKQCAS 
4 CIWCILST Cl list for multi-string CA split 
4 CIWCISR8 Register save for linkage return 
AMDSB Save Area for Updates to AMDSB Control Fields 
4 CSXHLRBA AMDHLRBA index 
2 CSXNIL AMDNIL index 
2 Unused 
IXFORMAT Work Space 
4 CIWIXFBA Save callers base 
4 CIWIXFRT Save return register 
4 CIWLSEP Entry pointer for last section 
4 
4 


N 
oO 


4 
8 
4 
4 
4 
2 
2 
1 
1 
2 


CIWANLSE Entry address for last section 
CIWANLE Last entry address 





Figure 5.23 Control Interval Work Area (CIW) description and format (part 4 of 5) 
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Hex. 
Bytes Field Name Digit 
CIWKEYL 


CIWNLSEL 
CIWNLEL 


CIWXNSA 
CIWXSOP 
CIWFCNT 
CIWCINL 

CIWAREA 
CIWLKSP 


Description 


Length of current key 
Length of last section key 
Length of last entry key 
Unused 

Address of next section 
Offset pointer of last section 
Format count 

Control entry length 

Work area for RDF build 


Parameters describing the DTL 
(Define-The-Lock) for the 
Space Allocation Lock used in 
share option 4 





396 18C CIWLKSPL Length of DTL 
400 190 CIWLKSPA Address of DTL 
404 194 CIWKEY Index key work area 


* Length = 5 x keylength 


Figure 5.23 Control Interval Work Area (CIW) description and format (part 5 of 5) 


Duplicate Data Recovery Work Area (DDRW) 


5.46 


If a system failure occurs during control interval split processing, duplicate 
data records may exist for a file. IKQDDRW maps the DDRW to use asa 
save area, while determining if duplicate records exist and correcting the 
situation, if necessary. 


VSE/VSAM VSAM Logic, Volume 2 


Hex. 


Bytes Field Name Digit 


DDRWPHS 
DDRWIXS 
DDRW14S 
DDRWXSOP 
DDRWXSEO 
DDRWXEO 
DDRWXEOP 
DDRWXLEV 
DDRWXSEP 
DORWFL 
DDRWF 


DDRWL 
DDRWRC 


Description 


Register save area for 
IKQBFAOO. 


Save area for IKQIXSOO save 
area. 


Save area for register 14 for 
IKQIXSOO. 


Save area for last section entry 
offset pointer (PLHXSOP). 


Save area for next section 
entry offset (PLHXSEO). 


Save area for index entry offset 


(PLHXEO). 


Save area for previous entry 
offset (PLHXEOP). 

Save area for previous index 
level (PLHXLEVP). 

Save area for previous section 
entry offset (PLHXSEOP). 
Save area for F and L bytes of 
index entry: 

F byte. 

L byte. 


Record count work field for 
RDFs describing multiple re- 
cords of the same length. 





Duplicate Data Recovery Work Area (DDRW) description and format 


Licensed Material — Property of IBM 


Extent Definition Block (EDB) 


The EDB describes all extents of the space allocated to the cluster’s data set. 
The EDB is built by the Open module from information in the data set’s 
catalog record. The AMDSB contains the length of the EDB (AMDLEDB), 
the number of EDB entries (AMDNEDB) that follow the header, and the 
address of the first EDB (AMDFSEDB). Each EDB entry describes an 
extent, and contains the address of the associated LPMB. 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


EDBNEDB Address of next EDB 

EDBSYMU Symbolic unit (for CCB) 

EDBSUCLS Symbolic unit class 

EDBSUNUM Symbolic unit number 

EDBNUMTR Number of tracks of extent 

EDBFLGS Flags 

EDBDWSS Data RBA with sequence set 

EDBSSWD ‘40’ Sequence set RBA with data 

EDBIXREP Index replication 

EDBMNT ‘10’ Volume mount flag 

EDBLGCC Device contains more than 256 
cylinders 

EDBRPS ‘ Indicator for RPS device 

EDBARCH Extent is on a fixed block 
device 

EDBMBB Extent (M) and bin (BB) number 

EDBM Extent (M) number 

EDBBB Bin (BB) number 

EDBLBBBB Starting block of a fixed block 
extent 

EDBXTNT Combined name for low and 
high CCHH 

EDBLCCHH Low cylinder and head num- 
bers 

EDBLCC Lowest cylinder 

EDBLHH Lowest head 

EDBHBBBB Ending block of a fixed block 
extent 


EDBHCCHH High cylinder and head 
numbers 





Figure 5.25 Extent Definition Block (EDB) description and format (part 1 of 2) 
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Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


EDBHCC Highest cylinder 

EDBHHH Highest head 

EDBLPMBA Address of associated LPMB 
EDBPARDB Address of ARDB 

EDBVLSQ Index to the VOLSER list 
EDBSTTRK Relative track address of the 


start of the extent (zero for fix- 
ed block devices) 

EDBRBAS Combined name for low and 
high RBAs 

EDBLORBA Low RBA limit 

EDBHIRBA High RBA limit 

EDBTLBCA Total number of data blocks 
and sequence set blocks per 


CA, minus 1 (fixed block de- 
vices). 


EDBCASZ Number of bytes per control 
area 

EDBTRKCA Number of tracks per control 
area 

EDBTPBCA Total number of data blocks, 


sequence set blocks, and wast- 
ed blocks per CA (fixed block 


devices). 





Figure 5.25 Extent Definition Block (EDB) description and format (part 2 of 2) 
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EXCPAD Parameter List 
EXP is a mapping macro that maps the following parameter list when an 
EXCPAD exit is taken. 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


Figure 5.26 
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4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
3 
1 


> bp = O 
nN © 
@ 


hh 


EXPST 
EXPAREA 
EXPSAVE 
EXPSAV02 
EXPSAVO3 
EXPSAV04 
EXPSAVO5 
EXPSAVO6 
EXPSAVO7 
EXPSAVO8 
EXPSAVO9 
EXPSAV10 
EXPSAV11 
EXPSAV12 
EXPSAV13 
EXPSAV14 
EXPSAV15 


EXPPECBT 


EXPARML 
EXPRPLC 
EXPECB 
EXPRPLS 


Start of EXCPAD list 
Length of parameter list 
Register 2-15 save area 
Register 2 save area 
Register 3 save area 
Register 4 save area 
Register 5 save area 
Register 6 save area 
Register 7 save area 
Register 8 save area 
Register 9 save area 
Register 10 save area 
Register 11 save area 
Register 12 save area 
Register 13 save area 
Register 14 save area 
Register 15 save area 
Reserved 

Test and set byte 
Reserved 

User's parameter list 
Address of calling RPL 
Address of ECB 
Address of splitting RPL (zero 
indicates no split) 

Rest of user’s parameter list 
(available to user) 





EXCPAD Parameter List description and format 


Section 5. Data Areas 5.49 


Exit List (EXLST) 


The EXLST contains addresses for the user-exit processing routines EO- 
DAD, SYNAD, LERAD, EXCPAD, and JRNAD. The address of the 


EXLST is in the ACB (ACBEXLST). 


Offset 
Dec Hex Bytes Field Name 
EXLID 
EXLIDD 
EXLSTYP 


EXLSDV1 
EXLSVSE1 


EXLLEN 
EXACT 
EXLEOD 
EXLEODF 
EXLEODP 


EXLSYN 
EXLSYNF 
EXLSYNP 
EXLLER 
EXLLERF 
EXLLERP 


EXLIOEX 
EXLIOEXF 
EXLIOEXP 


0 EXLJRN 
1 EXLJRNF 
4 EXLJRNP 


Hex. 
Digit 


X'81' 


X‘00' 
X‘10' 


Description 


Control block identifier = X‘81' 
EXLST identifier equate 
Release indicator 


DOS/VS VSAM Release 1 
VSE/VSAM Release 1 
VTAM 


Length of EXLST 
Active byte 

EODAD entry 

Entry description bits 


Address of the EODAD exit 
routine 


SYNAD entry 

Entry description bits 

Entry of the SYNAD exit routine 
LERAD entry 

Entry description bits 


Address of the LERAD exit 
routine 


EXCPAD entry 
Entry description bits 


Address of the EXCPAD exit 
routine 


JRNAD entry 
Entry description bits 
JRNAD pointer 


Bits used in individual exit flags in bytes shown as entry description: 


0 0 1 EXENFL 
EXENEXB 
EXENACTB 
EXENLEB 


1 1 4 EXENADDR 
Minimum length EXLST for specified entry: 


EXLEODL 
EXLSYNL 
EXLLERL 
EXLIOEXL 
EXLJRNL 


Minimum and maximum size of EXLST: 


EXLMINL 
EXLMAXL 


32 =620 EXLSTEND 


X‘80’ 
X'40' 
X‘20' 


Dec. 
Digit 
10 
15 


Flag byte 

Entry present bit 
Entry active bit 
Load bit 


Exit address 


Minimum length if EODAD 
Minimum length if SYNAD 
Minimum length if LERAD 
Minimum length if EXCPAD 
Minimum length if JRNAD 


Minimum length of EXLST 
Maximum length of EXLST 


End of EXLST 





Figure 5.27 Exit List (EXLST) description and format 
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Licensed Material — Property of IBM 


Field Control and Data Block (FCDB) 


Many FCDBs comprise the FCDB area. These FCDBs are suballocated as 
needed for CCW(s), CCB(s), FXL(s), IOARG(s), and one BKPHD. This 
BKPHD points to the first unallocated FCDB, which is used by 
IKQIOA/IKQIOC to construct the channel program. 


Offset 
Dec Hex Bytes Field Name 


FCB 


FCBTIC 


FCBCHAIN 
FCBCFL 


FCBALI 
FCBPRVA 
FCBPRVSV 


2 FCBOFSET 
Equate values 
FCBCMAX 


FCBFMAX 
FCBDMAX 
FCBDINC 
FCBCINC 
FCBFINC 


FCBCP2 


Description 


Maps the module FCB 
Space for use in the block 


Reserved for a TIC operation 
code 


Pointer to next block 
Reserved for chaining flag 


Allocation indicator 
Previous request allocated 
Previous request save 
Offset pointer in block 


Maximum CCW offset (CKD) 
when full 

Maximum data offset (fixed 
block) when full 

Maximum data offset when full 
Increment for data in space 
increment for CCW(s) (CKD) in 
space 

increment for data (fixed block) 
in space 

CCW increment in powers of 2 





Figure 5.28 Field Control and Data Block (FCDB) description and format 
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File Sharing Work Area (SHRW) for SHAREOPTIONS (4) 
The SHRW contains information used only in SHAREOPTIONS (4) 
processing, and is used as a work area in sequential processing of 
SHAREOPTIONS (4) files. The AMBL points to the SHRW. The SHRW 
is created by Open and released by Close. 


3.52 


Offset 
Dec Hex 


Figure 5.29 
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Bytes 


_ 


1 
4 
4 
4 
4 
4 
4 
4 
4 
4 
2 


—s 
NO 


Field Name 


Hex. 
Digit 


SHRWID X'87’ 
SHRWLEN 
SHRWECB 


SHRWECOM 
SHRWETRA 


SHRWECBT 
SHRWSV14 
SHRWSVO 
SHRWSV3 
SHRWSV4 
SHRWSV5 
SHRWSV6 
SHRWSV7 
SHRWSV8 
SHRWSV9 
SHRWCINL 


X‘80' 


SHRWLCKN 


SHRWLCKS 


SHRWARG 


Description 


Control block identification 
Reserved 

Length of this work area 
Event Control Block for 
serializing use of this work area 
ECB post byte 

Traffic bit 

Test-and-set byte 

Save area for register 14 
Save area for register 0 
Save area for register 3 
Save area for register 4 
Save area for register 5 
Save area for register 6 
Save area for register 7 
Save area for register 8 
Save area for register 9 


Length of the control informa- 
tion (F+L+P fields) in each in- 
dex entry. 

Basic lock name for use with 
the LOCK macro when doing 
lock requests for this data set. 
Lock name prefix - ‘‘V”’ 
indicates VSAM 

Volume ID of the catalog 
volume that owns the file. 

Cl number of the catalog 
record that defines the file. 
Lock name suffix. 

Reserved 

Variable length argument field - 
actual length is 4, or for keyed 
access to a KSDS the key 
length (specified by 
AMDKEYLN). 





File Sharing Work Area (SHRW) for SHAREOPTIONS (4) description 


and format 
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Fix List (FXL) 
IKQFXL maps a 64-byte FCDB into a Fix List during the channel program 
build process. It contains seven 8-byte entries, each consisting of an entry 
address, a virtual starting address, and a virtual ending address. The I/O 


Manager reformats each 2-byte entry to a 4-byte address before issuing an 
EXCP. | 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


FXLCP, FXLSA, and FXLEA are repeated seven times. 

0 oO 4 FXLCP Pointer to a chain of virtual 
addresses (in low-to-high or- 
der). ‘If zero, the associated 
address entry pairs are the 
highest in the chain. 


Starting virtual page number 
(rounded down to 2K bound- 
ary). 


Ending virtual page number 
(rounded up to 2K boundary). 
Second entry. 

16 10 Third entry. 

24 18 Fourth entry. 

32 20 Fifth entry. 

40 28 Sixth entry. 

48 30 Seventh entry. 

The following field normally appears at offset 56 (X‘38’), but it may appear after any Fix List 

entry to indicate the end of a Fix List chain. 


56 38 4 FXLNFXL Flag byte and chain pointer to 
next Fix List. 
56 38 1 FXLNFLG Flag byte: 
FXLEOC End of Fix List chain. 
FXUNL More Fix List entries exist in 
the next block. 


Chain pointer to next Fix List. 
Reserved. 


FXLOFST Offset to next available entry 
(maximum 56 - FXLMAX). 





Figure 5.30 Fix List (FXL) description and format 
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I/O Arguments (IOARG) 
IKQIOARG maps the I/O data areas in the FCDB. 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 
IOASEEK Computed DASD address 
IOAFLAG Flag byte 
IOARPS ‘80’ RPS device 
1IOABB BB 
IOACCHH CCHH 
1tOACC cc 
IOAHH HH 
IOAR R 
IOAKEY Key size 
IOADATA Data size 
IOASEC RPS sector size 
Mapping for Define Extent Parameters 
16 IOADE Define extent argument. 
4 IOAMASK Define extent mask. 


1 1{OAFMSK File mask bits 
lOAINHW ‘40’ Inhibit all writes 


Reserved (Zero) 


IOASTBB Starting block number of extent 
(or control area for record 


mgt.) to be processed. 


=-O©ON MAW WwW = 
DOMN NW OW = 
-4-4 4 YN AND 


(oe) 
o 


lIOASTDS Starting block displacement 
(zero for record mgt.) 


IOAENDS Ending block displacement (or 
number of blocks in control 


area, excluding waste, for re- 
cord mgt.). 


Mapping for Locate Parameters 
8 IOALOC Locate argument. 


1 lIOAOPCOD Operation. 

IOAWRT xX‘O1' Write operation. 

{OARDREP X‘02' Read-replicated operation. 

lIOAWCK X‘05' Write and write check opera- 
tion. 

IOARD x'06' Read operation. 

lOAREPCT Replication count. 

jIOABLKCT Number of blocks to process. 

IOABBBB Address of first block in the 
block range (or control area for 


record management) to be 
processed. 


Fixed Block Save Area 
\OCFBASV Fixed block save area. 
1OCSTBB Starting block number. 
IOCDATA Number of FCDBs used. 





Figure 5.31 1/O Arguments (IOARG) description and format 
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I/O Driver Block (IODRB) 


IKQIODRB maps the BUFRIODR and BUF WIODR fields of the BCB. | 


Offset 
Dec Hex 


Figure 5.32 
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Field Name 


IODLEN 
lIODCURU 
(ODBKSTI 
lIODSTBB 


lIODSEEK 
IODFLAG 
IODRPS 
1IODBB 
IODCCHH 
1ODCC 
IODBBBB 


IODHH 
IODR 
{ODRBA 
IODLPMB 


Description 


Symbolic unit number 
Number of blocks to 1/O 


Starting block number of 
control area (fixed block de- 
vices) 


Compiled DASD address 

Flag byte 

RPS device indicator 

BB 

CCHH 

CC 

Displacement to the first block © 


in the CA for read or write op- 
eration (fixed block devices) 


HH 

R 

RBA for |/O 

Address of associated LPMB 





I/O Driver Block (IODRB) description and format 


Section 5. Data Areas 5.55 


I/O Request Block (IORB) 


Record management uses its own CCB macro to map a FDCB into a CCB. 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


5.56 


Figure 5.33 


VSE/VSAM VSAM Logic, Volume 2 


CCBST 
CCBD 
CCBLEN 
CCBCNT 
CCBERMAP 


CCBCOM1 
CCBWAIT 


CCBEOF 
CCBIOERR 
CCBERROK 


CCBRDC 
CCBPDE 
CCBDCV 
CCBUERR 


CCBCOM2 


CCBDCCNT 
CCBTRKOV 
CCBEOC 
CCBDC 
CCBNOREC 
CCBRETRY 
CCBVER 
CCBCC 


CCBCSW1 


CCBATTN 


CCBSTMOD 
CCBCUE 


CCBBUSY 
CCBCE 
CCBDE 
CCBUC 
CCBUE 
CCBCSW2 
CCBPCI 
CCBILEN 
CCBPROGM 
CCBPROT 
CCBCHAND 
CCBCHANC 
CCBICTRL 
CCBCHAIN 


Map of CCB. 

Residual count. 

Error codes. 

Communication byte 1: 
Traffic switch (set at channel 
end). 

End of file. 

Unrecoverable !/O error. 
Accept unrecoverable I/O 
error. 

Return data checks. 

Post at device end. 

Return data check read/check. 
User error routine. 


Communication byte 2: 


Data check in count field. 
Track overrun. 

End of cylinder. 

Data check. 

No record found. 

Retry no record found. 
Verify error. 

Command chain (retry). 


CSW status byte 1: 


Attention. 
Status modifier. 
Control unit end. 
Busy. 

Channel end. 
Device end. 

Unit check. 

Unit exception. 


CSW status byte 2: 


Program-controlled interrupt. 
Incorrect length. 

Program check. 

Protection check. 

Channel data check. 
Channel control check. 
Interface control check. 
Chaining check. 
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Offset 
Dec Hex 


Figure 5.33 


Licensed Material — Property of IBM 


Hex. 


Bytes Field Name Digit 


CCBSYMU 
CCBSUCLS 
CCBSUNUM 
CCBLIOCS 
CCBCCW 
CCBCOM3 
CCBAPEND 
CCBCSW 


CCBHFXL 


CCBFIX 


CCBIORID 


CCBSVOP 


CCBUFLGS 


CCBUEAIC 
CCBUEAC 
CCBURDCW 
CCBRPS 


CCBFXLEN 


CCBDATB 
CCBLCCWB 
CCBRDCCW 
CCBWTCCW 
CCBLWCCW 
CCBSVLOC 


CCBNCCB 


Description 


Symbolic unit. 

U - LUB class. 

N - LUB number within class. 
Reserved for LIOCS. 
Address of channel program. 
Communication byte 3: 
Appendage end at interrupt. 


Address of CSW in appendage 
routine. 
Address of the VSAM-supplied 
Fix List. 


EXCP should not reformat the 
Fix List during retry on I/O er- 
rors. The supervisor uses this 
bit to indicate the Fix List is 
compressed (contains no re- 
dundancies in its entries). 


Reserved for IORB ID (field 
must be zero). 


Save area for op code of the 
CCW following the last Write 


CCW in the chain 
(‘‘piggy-back’’ operations). 
1/O manager CCB flags: 
Error analysis in control. 
Error analysis complete. 
Read CCW active. 

RPS channel program candi- 
date. 

Address of chain of Fix List 
entries sorted by virtual ad- 
dress. The first entry repre- 
sents the lowest virtual address 
space to be fixed. 

Address of last data block. 
Address of last CCW block. 
Save area for first read CCW. 
Save area for first write CCW. 
Save area for last write CCW. 
Save area for first four bytes of 
second CCW (temporary TIC 
during error recovery of 
‘‘piggy-back’’ operation). 
Reserved. 

Address of next CCB block. 
Reserved. 





I/O Request Block (IORB) description and format (part 2 of 2) 
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I/O Work Area (IOWKA) 


IKQIOWKA maps the PLH Workarea (PLHWAREA, displacement 
X‘D4’). 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 
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WKAREA 
WKASTBB 


WKASEEK 
WKAM 
WKABB 


WKACCHH 
WKACC 
WKABBBB 


WKAHH. 
WKAR 
WKABDC14 
WKATEMP 
WKAGETVS 
WKAFXLSV 


WKARTNCD 
WKABLKS 


WKAERRSW 
IOMERP2 


WKAIOMSW 


JOMPROCR 
IOMPROCW 
IOMPROCK 
1IOM1RD 


IOM1 WRT 


IOMWRPS 


WKADBHD 
WKAREGSV 
WKASVCCB 


Beginning of IOWKA. 
Starting block number of the 
CA (fixed block devices). 
Work area DASD address: 

M 

BB 

CCHH 

CC 

Displacement to the first block 
in the CA to be processed 
(fixed block devices). 

HH 

R 

BLDCPOOO save area. 
Temporary area. 

ALLBK save area. 


Save area for Fix List routine 
(R15 - R3). 


Return code. 


Number of blocks on active 
CCB. 


Hold error indicator in IKQIOB: 
The CCW in error has been 
passed over in the scan down 
the CCW chain for setting bits 
in the BCB. 


1/O manager flags: 


Process reads. 

Process writes. 

Process write checks. 

At least one read operation 
must be performed: if off, by- 
pass |/O manager read loop. 
At least one write operation 
must be performed; if off, by- 
pass I/O manager write/write 
check loop. 

This is a write pass through the 
BCBs for RBA conversion. 
Reserved. 

Address of working BHD. 
ALLOC register save area. 


Save address of previous CCB. 





1/O Work Area (IOWKA) description and format 
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Logical-to-Physical Mapping Block (LPMB) 
The LPMB contains information about the direct-access device that con- 
tains the user’s data set. The LPMB is built by the Open module, using 
information in the data set’s catalog record. The EDB (EDBLPMBA) 
contains the address of the LPMB. 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


LPMID Control block identifier. 
LPMBDTF DTF device type indicator. 
LPMLEN Length of the LPMB. 
LPMBPTRK Number of bytes per track. 
LPMNREP Number of replicated sequence 
set Cls (fixed block devices). 

LPMTLBCA Total number of data blocks 
and sequence set blocks per 
CA, minus 1 (fixed block de- 

vices). 

LPMCASZ Number of bytes per control 
area. 

LPMBLKSZ Physical block size (512 for 
fixed block devices). 

LPMTRKCA Number of tracks per control 
area. 

LPMTPBCA Total number of data blocks, 
sequence set blocks, and wast- 
ed blocks per CA (fixed block 
devices). 

LPMTIBCA Number of sequence set blocks 
in the CA, or zero if there is no 
imbedded sequence set (fixed 
block devices). 

LPMTPC Number of tracks per cylinder. 

LPMBNQBK Number of physical records per 
track, or total blocks occupied 
by replicated index Cls. 

LPMBPBCI Physical blocks per control 
interval. 





Figure 5.35 Logical-to-Physical Mapping Block (LPMB) description and format 
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Placeholder (PLH) 


The PLH contains current information about a request. This information 
includes positioning information, request options, and buffer location and 
status, The PLH is built by the Open module and is pointed to by the 
AMBL (AMBLPLH). When a record management module is processing a 
PLH, the PLH’s address is in register 13. 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


Standard Save Area 

PLHSAREA Register save area 
Reserved 

PLHSADDR Address of user's save area 
Reserved 

Buffer Manager Save Area 

PLHSAVE Save area for 15 registers 


1/0 Manager Save Area and JRNAD Extended Save 
Area 


PLHBSAVE 1/O manager save area 
(R9-R6) 


PLHIXSSV Index search and get next save 
area 


PLHJRNSV JRNAD save area 

Return Register Stacks 

PLHSTCK Fixed return register stack 

PLHSTCK1 Return register from level 1 

PLHSTCK2 Return register from level 2 

RPL Pointers 

PLHHRPL Pointer to header RPL 

PLHCRPL Pointer to current RPL 

PLH ECB (see 1/O Work Area - IOWKA) 

PLHECB Event control biock 
Reserved 

PLHAUSE Request active on PLH 


PLHECOM Communications byte 
PLHEWAIT X‘80' Wait flag on ECB 


PLHECBT Test and set byte for ECB 
PLH Work Area (see 1/O Work Area - IOWKA) 
PLHWAREA PLH work area 

PLH Identification Byte 

PLHID X'55' PLH identification byte 
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Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


PLH Use Gate 


PLHUSE PLH use gate 
if ON (X'‘FF’), this PLH is 
available only to an RPL whose 
string identifier (RPLSTRID) is 
equal to the string identifier 
(PLHSTRID) of this PLH. 

PLH Condition Flags 

PLHFLAG PLH condition flags 

PLHST X'80’ PLH status flag (bit 0) 
1 - PLH set 
0 - PLH invalid 

PLHPOS X‘'40' PLH position flag (bit 1) 

1 - Next record 

O - previous record 

PLHEOD X‘20’ PLH end-of-data-condition flag 
(bit 2) 
1 - EOD reached 
0 - Not EOD 

PLHWAIT PLH wait flag (bit 3) 
1-1/0 pending 
0-No 1/0 pending 

PLHSKIP PLH skip flag (bit 4) 
1 - Skip control interval 


0 - Don't skip control interval 
PLHRST : PLH restart flag (bit 5) 


1 - Restart 
O - No restart 


PLHFST : PLH first-time flag (bit 6) 
1 - First time 
O - Not first time 


PLHRREAD ‘ PLH exclusive control reread 

flag (bit 7) 

1 - Need reread 

0 - Reread not needed 
PLHFLG PLH spare condition flag 
PLH Communication Switches 


PLHSWTCH PLH communication switches 

PLHLOAD X'80' PLH load or resume load 
indicator 

PLHKRCH X'40' PLH key range change indica- 
tor 

PLHMSRT X‘20' Mass insert indicator 

PLHFSR x‘10’ First request for data set 
indicator 

x‘08' Reserved 

PLHSTBCB X‘04' Demand a BCB from 
STEALOOO (IKQBFD) 

PLHEC X‘02' Exclusive control needed 


PLH2AROW~  X'‘01' Two inserts in a row 
(consecutive records) in skip 
sequential processing 


Previous Request Characteristics 
PLHPREQ Previous request information 
PLHRTC Previous request-type code 


PLHOPT Previous request option bytes 
PLHOPT1 First option byte 
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Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


283 11B PLHOPT2 Second option byte 


284 11C PLHPKEYA Pointer to save area for keyed 
access 


internal request characteristics for LSR 
PLHILTM Test mask for WRTBFR 
PLHILRM Reset mask for WRTBFR 


PLHPERC Percentage value for number of 
least recently used buffers 

PLHIOPT1 Option byte for WRTBFR 

PLHIDSC X'80’ Data set processing for forced 
close 

PLHIDS X‘40' Write buffers for a data set 

PLHILRU X‘20' Write least recently used 
buffers , 

PLHIALL x‘10' Write all buffers 


PLHITRN X‘08' Write buffers for specified 
transaction identifier 


PLHIBCB X'04' Subpool contains at least one 
modified buffer 

PLHIFIO X‘02' Force 1/O for buffer 
Reserved 

PLHDBSPH Address of data buffer subpool 


PLHIBSPH Address of index buffer 
subpool 


PLHACB Pointer to data set's ACB 


PLHEACB Address of ACB of buffer with 
error 


PLHLSRA Address of LSR save area 

Multiple String Support 

PLHSTRID PLH string ID (1-255) 

PLHENDRQ ENDREQ request gate byte 

PLHINDS indicator byte 

PLHCLOSE X‘80’ Close-type ENDREQ request 
Reserved 

EXCPAD Parameter List Pointer 

PLHPARML EXCPAD parameter list pointer 

JRNAD Parameter List Pointer 

PLHAJRN JRNAD parameter list pointer 

1/0 Manager Entry Point 


PLHIOMGR 1/O Manager (IKQIOA00) entry 
Key Range Support point 
Fields 


PLHDCRDB Address current ARDB 
PLHDTRDB Address target ARDB 
Pointers to Buffer Headers (BHDs) 

PLHDBHD Address of data BHD 
PLHIBHD Address of index BHD 
PLHBRPL Save header RPL 


PLHTHB Address of THB (share option 
4) 


Reserved 
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Offset Hex. . 
Dec Hex Bytes Field Name Digit Description 


Data PLH 
PLHDATA Data PLH 


PLHDCNV The buffer manager parameter 
.list for the data control interval 
currently being used to satisfy 
GET or PUT request - the pri- 
mary data buffer 


PLHDRBA Data Ci RBA 

PLHDBUF Data buffer description 
PLHDBCB Address of data BCB 
PLHDBAD Address of data buffer 
PLHDCIDF Data Cl CIDF 

PLHDFSO Data Cl free space offset 
PLHDFSL Data Cl free space length 


PLHDSW Data Cl buffer manager 
interface switches 

PLHHOLD : Track hold indication 

PLHHELD ; Track free indication 

. PLHNORDD : No read from the data set. No 
buffer is returned to the buffer 
manager requestor. 

PLHNOINV ‘10' No invalidation. If this bit is on, 
no invalidation takes place, 
even for SHAREOPTIONS (4). 
If this bit is off, then the mean- 
ing is dependent on 
PLHNORDD as follows: 

PLH and PLHNOIVN both off 
(normal GETBUFF) - Only if 
SHAREOPTIONS (4), then any 
existing buffer for the RBA will 
be invalidated before reading 
from the data set. If not 
SHAREOPTIONS (4), no invali- 
dation takes place. 
PLHNORDD on and PLHNOINV 
off (explicit invalidation) - Scan 
the buffer queues of this PLH 
and invalidate the buffer with 
the the specified RBA if it ex- 
ists. Do not read from the data 
set (No buffer is returned to 
the buffer) 

PLHNORD ..11..... No GETBUFF activity - no scan 
of the buffer queues and no 
read from the data set 

PLHLOG X‘'08' Logical GETBUFF request 

PLHRAHD X‘04' Read-ahead request 

PLHCATH X‘02' CA split SHAREOPTIONS (4) 
hold - used to request an extra 
SHAREOPTIONS (4) hold on 
the new CA during a CA split. 
This CA split hold will be re- 
leased whenever the normal 
SHAREOPTIONS (4) hold is re- 
leased 


—-~ NO ND FP HBO A 
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Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


PLHDSW1 Buffer request control switch 

PLHEHOLD Exclusive control desired 

PLHEHELD ; Exclusive control held 

PLHEACTV Exclusive control active 

PLHKGEHD Key-greater-than-or-equal hold 
- indicates that during a GET 
KGE, the SHAREOPTIONS (4) 
hold on the CA in which the 
search began is to be specially 
retained while the search pro- 
ceeds to the next CA. 

PLHBRKHD ‘08' Break the SHAREOPTIONS (4) 
hold - do not allow it to contin- 
ue uninterrupted even though . 
the hold request may be for the 
same CA as is currently held. 

PLHCATH CA split track hold 

PLHCATF CA split track free 

PLHDIRQ Indication to the buffer manag- 
er that this direct write request 
is to be deferred (set and reset 
by IKQMDY) 

PLHNODDR X'02' No duplicate data recovery 


PLHDCSZ Data Cl size minus 10 (offset to 
rightmost RDF) 
Data Record Description 


PLHDRCD Data record description 

PLHDRO Data record offset 

PLHDRDF Data record RDF-offset 

PLHDRIX Data record RDF-index 
Spare 

PLHDRRBA Data record RBA 

PLHDRL Data record length 
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“Offset Hex. 
Field Name Digit 


Dec Hex Bytes Description 


Read-Ahead Data PLH 
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nN 
oO 


"“- OND Ph Hh HOD A 


PLHBDATA 
PLHBRBA 


Data read-ahead PLH 
RBA of next CNV to read ahead 


Read-Ahead Data CI Description 


PLHBDCNV 


PLHBDRBA 
PLHBOBUF 
PLHBDBCB 
PLHBDBAD 
PLHBDCDF 
PLHBDFSO 
PLHBDFSL 
PLHBDSW 


PLHBDSW1 


PLHBDCSZ 


Read-ahead data buffer 
manager parameter list 


Data CI RBA 

Data buffer description 
Address of data BCB 
Address of data buffer 
Data Cl CIDF 

Data Cl free space offset 
Data Cl free space length 


Data Cl switches (same as 
PLHDSW) 


Buffer request control switch 
(same as PLHDSW1) 


Data Cl size minus 10 


Alternate Index Record Information 


PLHAIX 


PLHAIXPT - 


PLHBCPLH 
PLHAIXWL 
PLHAIXPN 


PLHAIXOP 
PLHUPG 
PLHUPGP1 
PLHUPGP2 
PLHUPGAD 


PLHAIXSV 


AIX record information 
Address of base cluster pointer 
Address of base cluster’s PLH 
Reserved 


Number of base cluster 
pointers still to be processed in 
this AIX record 


RPL Option bytes 

Upgrade set information 
Current USB entry address 
Last USB entry address 


Address of prime key (KSDS) 


or RBA (ESDS) of base cluster 
record 


AIX save area 


Spanned Record Flag Byte 


PLHSWT2 


PLHSPAN 
PLHSRU 
PLHSRUF 


PLHSRUL 
PLHSRCAS 


PLHSREC 


X‘80' 
X'40' 
X'20' 
X'10' 
X‘08' 
X'04' 
X'02' 
X'01' 


Spanned record switch byte 


Spanned record indicator 
Called from IKQSRU 

First call from IKQSRU 
Last call from IKQSRU 
CA-split necessary 
Reserved 

Exclusive control indicator 
Reserved 
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Field Name 


Hex. 
Digit 


JRNAD Flag Byte 


PLHJRN 
PLHJRVSM 
PLHJRMDY 
PLHJRCIS 
PLHJRCA1 
PLHJRCA2 


PLHJRSRG 
PLHJRSRU 


X‘40' 
X‘20' 
X‘10' 
X‘08' 
X‘04' 


X‘02' 
X‘01' 


Description 


JRNAD flag byte 

JRNAD called from IKQVSM 
JRNAD called from IKQMDY 
IRNAD called from IKQCIS 
JRNAD first call from IKQCAS 
JRNAD second call from 
IKQCAS 

JRNAD called from IKQSRG 
JRNAD called from IKQSRU 


Spanned Record Information 


PLHSRCNT 
PLHSPREC 
PLHRCD 
PLHAREA 
PLHRLEN 
PLHSRRBA 
PLHX1EO 
PLHXPTR 
PLHSRRDF 


PLHSRR2 
PLHSRLVL 
PLHSSR1 
PLHSRLL 


Additional PLH Switches 


PLHSWT1 
PLHRSI 


PLHUPRES 
PLHPCI 


PLHBWD 
PLHLRD 


PLHFLG1 
PLHDUKEY 
PLHAIXRP 


Index PLH 


PLHINDEX 
PLHESDS 


X‘10' 


Number of segments 
Spanned record information 
Spanned record description 
Pointer to user area 

Length of spanned record 
RBA of record 


Index entry offset of first part 
Pointer number 


Double RDF for spanned 
record 


R byte of 2nd (leftmost) RDF 
Level number 

R byte of ist (rightmost) RDF 
Length of segment 


PLH communication switch 
control 

RPL area switch indicator 
(indicates that the user RPL 
areas of an AIX and the base 
cluster have been switched) 
AIX upgrade reset switch 
Previous index control interval 
required 

Backward processing 

Last record processing 

Flag byte continuation 
Duplicate key in AIX record 
AIX repositioning flag (Previous 
AIX record must be read) 


Index PLH 


Length of PLH for ESDS 
(equate value) 
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Field Name 


Index Cl Description 


PLHXCNV 


PLHXCIDF 
PLHXCIDF 
PLHXFSO 
PLHXFSL 
PLHXSW 


PLHXSW1 


PLHXCSZ 


Index Entry Description 


PLHXETRY 
PLHXEO 
PLHXSEO 
PLHXSOP 


PLHXLVL 
PLHXLEVP 
PLHXPTRP 
PLHXEOP 
PLHXSEOP 
PLHXRBAP 


Read-Ahead Index PLH 


PLHBINDX 


Description 


The buffer manager parameter 
list for the index control interval 
currently being processed - the 
primary index bufter 


The Cl CIDF 

Index Cl CIDF 

Index Cl free space offset 
Index Cl free space length 


Index Ci switches (same as 
PLHOSW) 


Buffer request control (same as 
PLHDSW1) 


index Cl size minus 10 


index entry description 
index entry offset 
Next section entry offset 


Last section entry offset 
pointer 


Present index level in process 
Previous level index 

Previous entry's P field 
Previous entry offset 
Previous section entry offset 
Previous index record RBA 


Read-ahead index PLH 


Read-Ahead Index Ci Description 


PLHBXCNV 


PLHBXRBA 
PLHBXBUF 
PLHBXBCB 
PLHBXBAD 
PLHBXCDF 
PLHBXFSO 
PLHBXFSL 
PLHBXSW 


PLHBXSW1 


PLHBXCSZ 


Read-ahead index buffer 
manager parameter list 


Index Ci RBA 

index buffer description 
Address of index BCB 
Address of index buffer 
index Ci CIDF 

Index Cl free space offset 
Index Cl free space length 


Index Cl switches (same as 
PLHDSW) 


Buffer request control switch 
(same as PLHDSW1) 


Index Cl size minus 10 
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Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


Read-ahead Index Entry Description 
PLHBXEO Index entry offset 
PLHBXSEO Next section entry offset 


PLHBXSOP Last section entry offset 
pointer 


Previous Record Key Information 
PLHPKEY Key of previous record 
PLHEND End of PLH 


PLHLKSDS Length of PLH for KSDS 
(equate value) 


* Variable, equal to key length. 
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Request Parameter List (RPL) 


The RPL contains user-request information and error feedback information. 
It also maintains information required by GET and PUT. The RPL is 
created by the user with the RPL macro instruction. 


Offset 


Dec Hex 


1E 
20 


Bytes 


2 


Field Name 


RPLID 
RPLIDD 
RPLSTYP 


RPLSDV1 
RPLSVSE1 


RPLLEN 
RPLRBA 
RPLODDD 
RPLARG 
RPLRCD 
RPLAREA 


RPLRLEN 
RPLBUFL 
RPLACB 
RPLDACB 
RPLSTRID 
RPLREQ 


RPLPOINT 
RPLGET 
RPLERASE 
RPLPUT 
RPLUPDTE 
RPLINSRT 
RPLCHECK 
RPLRCLSE 
RPLENDRQ 
RPLFRCIO 
RPLVERFY 
RPLPUTL 
RPLWRBFR 
RPLKEYL 


RPLOPTCD 


Description 


Control block identifier = X‘00' 
RPL equate 

Release indicator 

DOS/VS VSAM Release 1 
VSE/VSAM Release 1 

VTAM 

Length of RPL 

RBA of last record processed 
OD field 

Pointer to search argument 
Record description 

Address of the caller’s work 
area 

Length of record 

User buffer size 

Address of the caller's ACB 
Catalog compatibility 

RPL string identifier 

Request type* 


POINT request 
GET request 
ERASE request 
PUT request 
Update request 
insert request 
Check request 
RCLOSE request 
ENDREQ request 
FORCIO request 
VERIFY request 
PUT locate request 
Write buffer request 


Key length 
Option codes 


This value may be altered internally by VSAM, for example, X‘24’ from applica- 


tion program is changed to X‘0C’ by IKQRQA 


Figure 5.37 
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Offset 
Dec Hex 


36 


37 
37 
37 


24 


25 
25 
25 


Bytes 


3 
1 
1 


Field Name 


RPLOPT1 
RPLKEY 
RPLADR 
RPLSEQ 
RPLDIR 
RPLASY 
RPLSKP 
RPLONV 
RPLUPD 
RPLOPT2 


RPLKGE 


RPLGEN 
RPLNSP 
RPLNUP 


RPLLOC 
RPLUBF 


RPLBWD 
RPLLRD 


RPLHLD2 


RPLHLD 


RPLFLAG 
RPLECBPR 


RPLFDBK 
RPLFDB1 
RPLRTNCD 


Error class codes (stored from Register 15) 


39 
39 
39 
39 


27 
27 
27 
27 


RPLNOERR 
RPLNORPL 
RPLLOGER 
RPLPHYER 
RPLVABND 
RPLFDB2 
RPLFTNCD 
RPLFUPG 
RPLFAIX 
RPLFINC 
RPLFDB3 


RPLERRCD 
RPLERCD 
RPLFDBKC 


Description 


First byte of options 
Keyed access 
Addressed access 
Sequential 

Direct processing 
Asynchronous 

Skip sequential access 
CNV access (RBA) 
Update 

Second byte of options 


Search key greater than or 
equal 

Generic key request 

Note string position 

No update 

Locate mode 

User buffers 

Backward processing 

Last record processing 
Second test and set byte (RPL 


not available) 
RPL available 


Test and set byte (RPL held - 
request not completed) 
Request completed 

Flag byte 

CMS ECB indicator 

Error feedback area 

Error class (return) code 
Error class code 


No error detected 

RPL held by another request 
Logical error 

Physical error 

TP I/O prohibited 
Function type code 
Function type code 
Upgrade processing 
AIX processing 
Upgrade set is incorrect 
Error type code 

Error type code 

Error type code 


Error type code 


The following equates are for the various feedback returns that may be set for offset 39 (27). 
They fall into the three categories shown. 


Returns that are not errors (Register 15 = X‘00’) 
RPLEOV X‘04' 
RPLDPKEY X'08' 
RPLNEWCA X‘10’ 
RPLCIWNG X‘1C' 


EOV called during request 
Duplicate key (in AIX record) 
Index full - CA split required. 
Possible duplicate records in 
this Cl (address processing of 
KSDS) 





Figure 5.37 Request Parameter List (RPL) description and format (part 2 of 4) 
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Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


Logical errors (register 15 = X‘08’) 


Figure 5.37 
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RPLEOFDS 
RPLEODER 
RPLDUPRC 
RPLDUP 
RPLSEQCK 
RPLNRFND 
RPLNOREC 
RPLEXCTL 


RPLNVOLM 
RPLNRSPA 
RPLNOEXT 
RPLSPACE 
RPLINRBA 
RPLNKEYR 
RPLNOVIR 
RPLWRKAS 


RPLCDLOD 
RPLVLERR 
RPLNOPLH 
RPLNOPEN 


RPLKEYES 
RPLADRKS 
RPLINERS 
RPLINLOC 


RPLNOPOS 
RPLNGUPD 
RPLUPDKC 
RPLLENCN 


RPLCONOP 


RPLIMRCL 
RPLIMGKL 


RPLINLD 


RPLCATLG 
RPLSRLOC 


RPLSRADR 


RPLINCSR 
RPLNOBAS 
RPLMAXPT 
RPLNOBUF 
RPLINCNV 


RPLINVRR 
RPLRRADR 


RPLIPATH 
RPLINBWD 


End of data set encountered 
End of data set encountered 
Duplicate record 

Duplicate record 

Sequence error 

No record found 

No record found 

Data already in exclusive 
control 

Volume or extent unavailable 
No DASD space available 

No DASD space available 

No DASD space available 
Invalid RBA specified 

No key range for new record 
Insufficient virtual storage 
User's work area not large 
enough 

CDLOAD failure 

Internal VSAM logic error 
PLH in use (no string available) 
Access type not requested at 
Open 

Keyed request for ESDS 

ADR or CNV insert for KSDS 
iIilegal ERASE request 

IHegal locate mode specifica- 
tion 

Positioning error 

No valid GET UPD issued 

Key change during update 
Length change for addressed 
update 

Improper or conflicting RPL 
options 

Improper RECLEN specified 
Improper generic key length 
specified 

Ilegal request during data set 
load 

Internal catalog call failure 
lliegal locate mode 

lilegal request for spanned 
record 

Inconsistent spanned record 
No base record 

Maximum of pointers exceeded 
No buffers available (LSR only) 
invalid Cl, possibly duplicate 
data addressed using address 
mode for update 

Invalid relative record number 
illegal address requested 
(RRDS) 

lilegal path access 

lilegal backward mode request- 
ed 
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Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


Physical errors (register 15 = X‘0C’) 


RPLRDERD : Data read error 
RPLRDERI Index read error 
RPLRDERS ‘OC’ Sequence set read error 
RPLWTERD ‘ Data write error 
RPLWTERI ‘14’ Index write error 
RPLWTERS ‘18’ Sequence set write error 


RPLCHAIN Pointer to next RPL 


RPLAIXID AIX information byte 

RPLAXPKP ‘01’ Prime key pointers are used 
(base cluster is a KSDS) 
Reserved 

RPLAIXPC Number of base cluster 
pointers in the AlX record 

RPLXID Transaction ID 
Reserved 

RPLEND End of RPL 





Figure 5.37 Request Parameter List (RPL) description and format (part 4 of 4) 


Resource Pool Header (RPHD) 


The VSAM Resource Pool Header contains general information concerning 
the VSAM Resource Pool. Its address is stored in the AMBL. 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


RPHDASTR Number of active strings 
RPHDMSTR _ Maximum number of strings 


ever simultaneously active 
Reserved 


RPHDSTNO Total number of PLHs in the 
resource pool 





Figure 5.38 Resource Pool Header (RPHD) description and format 
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Resource Sharing Control Block (RSCB) 
The Resource Sharing Control Block provides exclusive control facilities for 
the VSAM shared resources. The VSRT points to the RSCB. 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


RSCBRBA RBA to be held in exclusive 
control 

RSCBDSID Data set identifier 

RSCBCAT Catalog ACB pointer 


RSCBDSCI Cl number of data set compo- 
nent 
RSCBCSID ID of string using field 
RSCBGATE (for a control area 
split) 
RSCBECB ECB used by IKQBFA and 
IKQCAS 
Reserved 
RSCBSTID ID of string (set by IKQBFA) 
RSCBCOM Communication byte 
RSCBWAIT ‘80' Wait flag 
RSCBGATE Exclusive control byte: 
X‘00' = ECB is free 
X'FF’ = ECB is in use 





Figure 5.39 Resource Sharing Control Block (RSCB) description and format 
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The Hold Block (THB) for SHAREOPTIONS (4) 
The THB contains information necessary to lock a control area of a SHAR- 
EOPTIONS (4) file during updates and inserts. The PLH points to the 
THB. The THB is created by Open and released by Close and by Delete 
VSAM Resource Pool (DLVRP). 


5.74 


Offset 
Dec Hex 


Figure 5.40 
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Bytes 


Hex. 


Field Name Digit 


THBID X'88' 


THBFLGBY 
THBACTV X‘80' 


THBPSUDO =—_— X‘40' 


THBREAL 


THBNOTPR 


THBLEN 
THBNTHB 


THBLK 


THBLSTAT 
THBLKUSB 


THBNOTUS 


THBLKSP 


THBNOTSP 


Description 


Control block identification 
Flag byte 

This THB is active for a 
SHAREOPTIONS (4) hold ona 
control area. 

The hold represented by this 
THB is a ‘‘pseudo hold’’ of the 
same control area that is also 
held by another THB. The oth- 
er THB has the THBREAL bit 
on. 

This THB really holds the 
control area (the supervisor 
LOCK macro has been issued). 
Not processing a LOCK 
request for this THB. This bit is 
intended as a potential problem 
determination aid. If it is off, 
processing for a LOCK macro 
is being done for this THB, and 
the THB is probably in LOCK 
wait. 


Length of THB 


Address of the next THB (the 
CA-split THB) 

Lock description and status 
information for special locks 
(locks other than the 
SHAREOPTIONS (4) control 
area locks) 


Status flags for special locks 
Lock is set for USB serializa- 
tion 

Same function as THBNOTPR, 
but pertaining to the USB seri- 
alization lock. If this bit is off, 
processing is being done for a 
LOCK macro to set the lock for 
USB serialization, and the re- 
quest is probably in LOCK wait. 
Lock is set for Record Manage- 
ment allocation of space within 
a file - for allocation of a new 
control area 

Same function as THBNOTPR, 
but pertaining to the Record 
Management space lock. If this 
bit is off, processing is being 
done for a LOCK macro to set 
the Record Management space 
lock, and the request is prob- 
ably in LOCK wait. 


Reserved 
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Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


Lock name passed to the 
Supervisor LOCK service. This 
field is used for both the 
SHAREOPTIONS (4) control 
area locks and for the special 
locks. 


THBNMBAS LOCK name - basic part 
Lock name prefix (‘V') that 
identifies VSAM 


Volume identifier of the catalog 
volume that owns the file 
Cl number of the catalog 
record that defines the file. 
THBNMCA The CA number within the data 
component or Cl number within 
the index component that is be- 
ing locked, with 1024 added to 
it. 
THBSTAMP Time stamp when Supervisor 
LOCK request issued - in time- 
of-day clock format 


THBSTAMO High order word of time stamp 
THBSTAM4 Low order word of time stamp 
THBRBA RBA of CA locked 


THBDTL Define-The-Lock, for Supervi- 
sor LOCK service 





Figure 5.40 The Hold Block (THB) for SHAREOPTIONS (4) description and format 
(part 2 of 2) 
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Upgrade Set Block (USB) 


The USB declaration maintains information required by PUT and ERASE 
requests to: the base cluster. The USB is created by OPEN (IKQOPNUS). 


Offset Hex. 
Dec Hex Bytes Field Name Digit Description 


USBID USB identifier 
USBIDD X‘EO’ USB equate 


USBACT Active byte, test and set 
USBLEN Length of this block 
USBMAXDB Max. data buffer in upgrade set 


USBMAXIB Max. index buffer in upgrade 
set 


USBWAPTR Pointer to work area pool 
USBMIN Min. required record length 
USBWALEN Work area length 

USBPLH Pointer to common USB PLH 
USBRPL Pointer to RPL 

USBDBHD Pointer to data buffer header 
USBIBHD Pointer to index buffer header 


USBDTL Pointer to DTL (Define-The- 
Lock) for serializing use of the 
USB. 


Begin of First/only Index Entry 


USBAIX 
USBACB Pointer to ACB 
USBLAST X‘80’ Last entry indicator 


USBRKP Relative key position 
USBKL Key length 
Further Alternate Index entries 


_d 


NnNMND = 


4 
2 
2 
4 
4 
4 
4 
4 





variable 


Figure 5.41 Upgrade Set Block (USB) description and format 
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Section 6. Diagnostic Aids 


This chapter provides several aids that can be useful when trying to diag- 
nose difficulties with VSAM modules. These aids include: 


Additional Aids 


A list of VSAM lock resource names (Figure 6.1) and their associated 
use by VSAM. 


A chart (Figure 6.2) showing the lock option/control for locking various 
types of files 


A list of macro instructions (Figure 6.3) issued by VSAM users, modules 
or other macros and their use. 


Cross reference tables (Figure 6.4) showing the VSAM modules and the 
macros they issue. 


A list of error codes (Figure 6.5) set in the RPL which indicate record 
management errors. The list shows also the relationship between inter- 
nal and external error codes. 


A list of error codes (Figure 6.6) showing record management modules 
and the error code(s) they might issue. 


A list of error codes (Figure 6.7) showing record management modules 
and the error code(s) they might issue when manipulating control 
blocks. 


A description of service aid phases and how to use them. 


Further aids can be found in other parts of the book and in the program 
listings. These include: 


Register contents on entry to a module, which are under Input in the 
module prologues. 

Use of registers and equated names for registers, which can be found 
under Notes in the module prologues. 

Error codes, which are under Exit-Error in the module prologues. 

A list, which is in the Directory, of modules, their component, their entry 
points, and their associated method of operation and program structure 
diagrams. 


A cross-reference list, which is in the Directory, of catalog external entry 
points and their associated modules. 
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VSAM Use of Locks 


Figure 6.1 is a list of the lock resource names used by VSAM and their 
associated functions. 


Resource Name Function 


V.addr.CAX.X‘0000' Serialize access on the C/M CAXWA chain 
during delete, update, or search operations on 
the chain. 


V.OAL.X‘O0000000000000000' Maintains integrity of OAL by serializing access 
through OPEN/CLOSE. 


V.SYSMCO.X‘0000000000' Serialize master catalog define and open. 


V.SYSOPEN.X‘00000000 Serialize OPEN, CLOSE, DELETE, and DEFINE 
access to the catalog (e.g. OPEN indicator) and 
synchronize the catalog with share options 
locks. 


V.volser.ci#.X‘0000'! File lock - Used to enforce SHAREOPTIONS 
protection for components of a file. The name 
volser.ci# uniquely identifies a component being 
protected. The volser is the serial number of the 
volume containing the catalog describing the 
component and ci# is the number of the control 
interval in the catalog where the component is 
being described. 


V.volser.ci#.X‘'0001’ Outcount lock - Maintains a count of output 
users of the file denoted by volser.ci#. This lock 
is maintained for SHAREOPTIONS(3) and 
SHAREOPTIONS(A4) files. 


V.volser.ci#.X‘0002’ Keyed access lock - Represents keyed access 
for output to a SHAREOPTIONS(4) file. It is used 
together with the address access lock to prevent 
concurrent keyed access and address access 
for output to a SHAREOPTIONS(4) file. 


V.volser.ci#.X'0003’ Address access lock - Represents address or 
CNV access for output to a SHAREOPTIONS(4) 
file. 


V.volser.ci#.X‘'0004' Used by Record Management to serialize use of 
the Upgrade Set Block (USB) when the ACB has 
been opened with multiple strings. 


V.volser.ci#.X‘0005’ Used by Record Management to serialize 
allocation of control areas within an extent of a 
SHAREOPTIONS(A) file. 


V.volser.X‘OOOO000006' Volume mount serialization - Used to 
synchronize mount requests for a given volume. 


V.volser.ci#.X‘nnnn’ Used for Record Management basic 
SHAREOPTIONS(4) locks on control areas, 
where nnnn is the CA number (CI number for 
index component) plus 1024. 


V.volser.UPL. X‘0000’ Serialize master and user catalog update and 
locate functions. 


(Note: The period (.) as used in this list of lock resource names, represents 
concatenation only and is not part of the lock resource name.) 


1 The file lock is maintained by open/close using OWNER=PARTITION so that an ACB 
may be closed by a different task than the opening task. Figure 6.2 shows which lock 
option/control is used for locking various types of files. 





. Figure 6.1 VSAM Use of Locks 
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File defined share option 


LOCKOPTION=1 LOCKOPTION=2 LOCKOPTION=3 LOCKOPTION=4 

CONTROL=SHARED CONTROL =SHARED CONTROL=SHARED CONTROL =SHARED 
OUTPUT LOCKOPTION =1 LOCKOPTION=2 LOCKOPTION=3 LOCKOPTION=4 

CONTROL=EXCLUSIVE | CONTROL=EXCLUSIVE | CONTROL=EXCLUSIVE | CONTROL=EXCLUSIVE 





Figure 6.2 Lock option/control for locking various types of files 


Macro-to-Module Relationships 
The following list in Figure 6.3 contains the macro instructions issued by 
VSAM users, modules, or other macros. Their types are identified as fol- 


lows: 
G -— generating macro 
SA - VSE action macro 
M - mapping macro 
I - internal (called by another macro) 
A - VSAM action macro 
S  - copy source book macro 
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ACB G 
ASYSCOM SA 
AVRLIST M 
CANCEL SA 
CATLG A 


CCB G 
CDLOAD SA 
CLOSE SA 


COMRG SA 
CVTOC SA 
DCTENTRY ™M 

DEQB SA 
DTFCN SA 
ENDREQ SA 


ENQB SA 
EOJ SA 
ERASE SA 
EXCP SA 
EXLST G 

EXTRACT SA 
FREEVIS SA 
GENCB A 

GENDTL SA 


GET SA 
GETFLD SA 
GETVCE SA 
GETVIS SA 
IDCDF60 M 


IGGCAXWA M 
IGGCCA M 
IGGMCDCL M 


IGGMCMDM M 


IGGMCMWA M 


IGGMCTRC M 
IGGMDLWA M 
IGGMDRWA M 
IGGMDVCH M 
IGGMEND G 


IGGMFDNM M 


IGGMGVO 





65 
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33 


98 
62 


107 
99 
61 





















































Generate an ACB 
Get address of systems communications region 
With DCTENTRY, map device characteristics 
Cancel a task 


Load address of catalog parameter list (CTGPL) 
into R1 and invoke catalog management 


Build a CCB 
Load module(s) 


Disconnect a user's program from a VSAM data 
set 


Get communication region address 

CVH close VTOC 

With AVRLIST, map device characteristics 
Free B-transient 

SYSLOG DTF 


Free a PLH and terminate processing on 
associated string 


Hold B-transient 

End of job 

Delete a record 

Execute channel program 

Generate EXLST 

Get control block information from supervisor 
Free virtual storage 

Generate a control block 


Generate a DTL (Define-the-Lock parameter list 
for the LOCK and UNLOCK macros) 


Retrieve a record 

Get specified field value 
Get device characteristics 
Get virtual storage 


Map Access Method Services catalog communi- 
cation table (ACC), catalog C! number to CRA Cl 
number translation table (CTT), and volume 
timestamp table (VTT). 

Map catalog auxiliary work area (CAXWA) 

Map catalog communications area (CCA) 

Issue the following macros to define the com- 
monly used declarations for VSAM catalog man- 
agement modules: IGGCAXWA, IGGCCA, 
IGGMCTRC, IKQACB, IKQAMCBS, IKQCOMRG, 
IKQCTGFL, IKQCTGFV, IKQCTGPL, IKQVRGN 
Map the VSAM catalog management commonly 
used record structures 

Map the VSAM catalog management services 
work area 

Map catalog return codes 

Delete work area layout 


Map the VSAM catalog VTOC label read-in work 
area 


Map VSAM catalog management device charac- 
teristics 


Generate exit code at the end of catalog 
management modules 


VSAM catalog dictionary information for external 
field names 


Map the volume information group occurrence 


Figure 6.3 Macro types and uses (part 1 of 4) 
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IGGMNAME 


IGGMODUL 
IGGMPROC 


IGGMSAWA 


IGGMUPDE 


IGGMVEDC 
IIPAMDTF 
IIPDTF 
WPPRAT 
IJBLBRC 
IJJHCPL 
IJJHDLST 
IJJHFMT 1 
IJJHFMT3 
IJJHFMT4 
IKQACB 
IKQACBG 
IKQACB1 
IKQAIR 
IKQAMBL 
IKQAMCBS 
IKQAMDSB 
IKQARDB 
IKQAREX 
IKQARGH 
IKQASGN 
IKQBHD 
IKQBKPHD 
IKQBLARD 
IKQBUFE 
IKQCBMTB 


IKQCB1 


IKQCB2 


IKQCCB 
IKQCCBCW 
IKQCCW 
IKQCGETC 
IKQCIW 
IKQCLCOR 
IKQCLNUP 
IKQCLRLS 
IKQCLWA 
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Licensed Material — Property of IBM 


O2FfQO2Z2 ZB F7 SSBESSZESRBSZE” = BEBSZZEEE 


M 
M 
M 
S 
M 
S 
S 
S 
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svc 


Generate catalog module name for error and 
reason codes 


Generate header code for catalog modules 


Generate header code for catalog internal 
procedures 


Map the VSAM catalog management suballocate 
work area 


Issue IGGMVEDC, IGGMCDCL, IGGMCMDMN, 
IKQAMDSB, and IGGMSAWA to define the com- 
monly used declarations for VSAM catalog man- 
agement Update-Extend modules 


Map the volume catalog record 
Generate/map AMDTF table 
Generate/map DTF table 
Generate/map address list 

Map label area record 

Map CVH Parameter List 

Map CVH Volume Descriptor List 
Map format-1 VTOC label 

Map format-3 VTOC label 

Map format-4 VTOC label 

Map ACB 

Generate ACB (called by IKQACB1) 
Generate ACB (called by ACB) 
Map alternate index record 

Map AMBL 

Map AMCBS 

Map AMDSB 

Map ARDB 

Map EXLST argument entry 

Map argument header 

invoke automatic assign function 
Map buffer header 

Map header for CCW area 

Build an ARDB 

Map BCB 


Define table of constants for control block 
generation modules 


Transform operands for control block manipula- 
tion macro instructions GENCB, TESTCB, 
MODCB, SHOWCB, !IKQCB2, and IKQERMAC 


Scan keywords and generate code for control 
block manipulation macro instructions GENCB, 
TESTCB, MODCB, SHOWCEB, IKQCB1, and 
IKQERMAC 


Map IORB 

Map IORB 

Map CCW 

Obtain storage in which to copy old ARDB 
Map control interval split work area 

Get address of space in which to build EDB(s) 
Disconnect ACB and AMBL 

Free storage obtained by Open and/or EOV 





Close work area 


Macro types and uses (part 2 of 4) 


Section 6. Diagnostic Aids 6.5 


IKQCOMB 


IKQCOMRG 
IKQCTGFL 
IKQCTGFV 
IKQCTGPL 
IKQCWS 
IKQDDR 
IKQDEVT 


IKQECB 
IKQEDB 
IKQEDBLD 
IKQEQU 
IKQERC 
IKQERMAC 


IKQEXLG 
IKQEXLST 
IKQEXL1 
IKQEXP 
IKQFCDB 
IKQFNDLB 
IKQFXL 
IKQGCB 
IKQDTL 
‘|IKQIOARG 
IKQIODRB 
IKQIORQU 
IKQIOWKA 
IKQIXHDR 
IKQJIB 
IKQURNDS 
IKQKWTB 


IKQLOCK 


IKQLPMB 
IKQLUB 
IKQMCB 
IKQMDADS 


IKQMSGPL 
IKQOAL 
IKQOCFSP 
IKQOCGSP 
IKQOCPRC 
IKQOPCLR 
IKQOPCLW 
IKQOPLCT 
IKQOPNWA 
IKQPARM 
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Generate a combination name entry for the 
VSAM catalog dictionary 


Map communication region 

Map field parameter list (CTGFL) 

Map catalog field vector table (CTGFV) 
Map catalog parameter list (CTGPL) 
Map CCW skeletons 

Map duplicate data recovery work area 


Read label area and/or determine the device 
type for the file-ID (IKQDEVT uses CDLOAD) 


Map Event Control Block 
Map EDB 

Build EDB 

Map register equates 
Internal error codes equate 


Issue M-notes (assembler macro error mes- 
sages) for control block manipulation macro in- 
structions GENCB, TESTCB, MODCB, 
SHOWCEB, IKQCB1, and IKQCB2 


Generate EXLST (called by IKQEXL1) 

Map EXLST 

Generate EXLST (called by EXLST) 
Description of EXPAD parameter list 

Map CCW blocks in CCW pool 

Find LUB (logical unit block) for symbolic unit 
Map Fix List (used with 1ORB) 

Generate a control block (called by GENCB) 
Generate a DTL for use by the lock manager 
Map DASD address 

Map 1/0 driver block 

Map register equates 

Map 1/0 work area in PLH 

Map index record header 

Map JIB (job information block) 

Parameter list for journalling 


Define table of constants for control block 
manipulation modules 


Lock a system resource or file by means of the 
LOCK macro 


Map LPMB 
Map logical unit block 
Modify a control block (called by MODCB) 


Map DADSM parameter list (interface block to 
DADSM) 


OPEN/CLOSE message primary list 
Open ACB list 

Free space for DSA 

Get space for DSA 

Connect dynamic storage area 
Register equates 

Map of common section of work area 
Map fields located by catalog 

Map Open Work Area 

Map Buffer Manager Parameter List 
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IKQPLH 
IKQPUB 
IKQRDF 
IKQRLSE 


IKQRPL 
IKQRPLG 
IKQRPL1 
IKQRQM 
IKQSCB 
IKQSHRW 
IKQTCB 
IKQTHB 
IKQUSB 
IKQUSE 


IKQUNLK 
IKQVLST 


IKQVOL1 
IKQVRGN 
IKQVRPPL 


IKQVSMDP 
LABEL 
LPLDCT 
LOAD 
LOCK 110 
MAPBDY 
MAPCOMR 
MAPPIB 
MODCB 
MODDTL 
MODFLD 
OPEN 
OVTOC 
POINT 
POST 

PUT 
PVTOC 
RPL 
SHOWCB 
SYSCOM 
TCLOSE 
TESTCB 
UNLOCK 110 
VERIFY 


WAIT 


Figure 6.3 
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Map PLH 
Map physical unit block 
Map RDF and CIDF fields 


Dequeue a system resource by means of a 
RELEASE macro 


Map RPL 

Generate RPL (called by IKQRPL1) 
Generate RPL (called by RPL) 

Generate modules IKQRQA and IKQRQB 
Display a control block (called by SHOWCB) 
Map SHRW (File Sharing Work Area) 

Test a control block (called by TESTCB) 
Map THB 

Upgrade set block 


Enqueue a system resource by means of a USE 
macro 


Unlock a system resource of file by means of the 
UNLOCK macro 


Map list of volume unit, symbolic unit, and 
volume time stamp 


Map volume-1 label 
Map anchor table 


Map parameter list for BLDVRP function 
(IKQBRP) 


Map VSAM dump 

Interface macro to call symbolic label access 
Map of label parameter list 

Load a phase 

Serialize on a named resource 

Map for partition boundaries 

Map partition COMREG layout 

Map program information block 

Modify a control block 

Modify a DTL 

Modify a specified field value 

Connect a user's program to a VSAM data set 
CVH open VTOC 

Position VSAM at a record 

Post an ECB 

Store a new or updated record 

CVH process VTOC 

Generate an RPL 

Display a control block 

Map system communication region layout 
Purge buffer and update catalog (no disconnect) 
Test a control block 

Release serialization on a named resource 


Build calling sequence for VSAM function 
VERIFY 


Wait on a CCB for 1/0 to complete 
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Record Management Error Code-to-Module Relationship 
There are internal and external error codes. Internal error codes are set in 
register 15 by record management modules and passed to IKQERH for 
handling. Three classes of internal error codes exist: 


¢ Specification errors (with a value from X‘01’ to X‘1F’) 

e Processing errors (with a value from X‘20’ to X‘3F’) 

e J/Oerrors (with a value from X‘40’ to X‘SF’) 

External error codes are set in the RPL (see section Data Areas) and register 
15 by IKQERH, according to the internal error codes, and passed back to 


the user. Figure 6.5 shows the Record Management internal - external error 
code relationship. 


Internal error 
codes 
(IKQERC macro) 


External error codes 
(IKQRPL macro) Meaning 


Figure 6.5 
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Symbolic 
name 


RPLNOPLH 
RPLNOPEN 


RPLNOPEN 
RPLNOPEN 
RPLRRADR 
RPLKEYES 
RPLADRKS 
RPLINERS 
RPLINLOC 
RPLINLD 
RPLNOPOS 
RPLNOPOS 
RPLNGUPD 
RPLUPDKC 
RPLLENCN 


RPLCONOP 
RPLCONOP 


RPLIMGKL 
RPLIMRCL 
RPLINERS 


RPLNOPOS 
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RPL held by another request 
Reserved 
No PLH available 


CNV access not requested at open, or ADR access not requested 
at open 


Keyed access not requested 
Output not requested 

Invalid address requested 

Keyed access requested for ESDS 
ADR or CNV insert for KSDS 
Illegal ERASE request 

(Illegal Locate mode specification 
illegal request during data set load 
No keyed positioning done 

No sequential positioning done 

No valid GET UPD issued 

Key change during update 

Length change for addressed update 
Reserved 

Improper RPL-option (BWD) 


Improper or conflicting RPL options, invalid transaction ID or LRU 
percentage value, or WRTBFR without LSR/DFR, or ARG param- 
eter not specified when required. 


Improper generic key length 
Improper RECLEN 

Invalid ERASE request (AIX) 
Reserved 

invalid switching FWD-BWD 


Reserved 
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internal error 
codes 
(IKQERC macro) 


Figure 6.5 
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External error codes 
(IKQRPL macro) 


Symbolic 
name 


RPLINVRR 
RPLIPATH 
RPLINBWD 


RPLINRBA 


RPLNRFND 
RPLNOREC 


RPLEOFDS 
RPLEODER 


RPLWRKAS 
RPLSEQCK 


RPLDUPRC 
RPLDUP 


RPLNKEYR 
RPLNOVIR 


RPLNRSPA 
RPLNOEXT 
RPLSPACE 


RPLNVOLM 
RPLCDLOD 
RPLVLERR 


RPLEXCTL 
RPLCATLG 
RPLSRLOC 
RPLINCSR 
RPLSRADR 
RPLNOBAS 


RPLMAXPT 
RPLNOBUF 
RPLINCNV 


Meaning 


Invalid RR number (RRDS) 
Invalid path access (AIX) 
Itlegal PUT in BWD-mode 
Reserved 

Invalid RBA 


No record found 


End of data set encountered 


User's work area not large enough 
Sequence error 


Duplicate record 


No key range for new record 
Insufficient virtual storage 


No DASD space available 


Volume or extent unavailable 
CDLOAD failure 


No BCB available or invalid attempt to insert RRDS after prefor- 
mat 


Exclusive control failure 

Internal catalog call failure 

Negal GET in LOC-mode 

Inconsistent spanned record 

Illegal addr. retrieval for spanned records KSDS 
No base record for associated AIX pointer 
Reserved 

Max. no of AIX pointers exceeded 


No buffers available (LSR) 


Invalid Cl, possibly duplicate data accessed using address mode 
for update 
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internal error 
codes 
(IKQERC macro) 


External error codes ; 
(IKQRPL macro) Meaning 


Symbolic 
name 


RPLNASN No programmer logical |/O units available for a dynamic assign- 
ment 


RPLEXCL1 ‘DO’ LOCK (most often the share option 4 lock on a CA) previously 
requested under the same VSE task, but not under the same 
string-set. 


RPLNOLKS ‘D4' | VSAM received a return code from the LOCK macro indicating 
that no space is available in the lock table. 


RPLCAOV : For a share option 4 file, an RBA exceeded 64511 times the 
CA-size (64511 times the Cl-size for an index component). 


RPLRDERD Data read error 
RPLRDERI} Index read error 
RPLRDERS Sequence set read error 
RPLWTERD Data write error 
RPLWTERI Index write error 





RPLWTERS Sequence set write error 


Figure 6.5 Record Management internal/external error code relationship (part 3 of 3) 
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Module 


IKQBFCOO, IKQCISOO, IKQGNX00, IKQLNA 
IKQIXEOO, IKQIXFOO 

IKQERH, IKQVSM 

IKQRQC, IKQVSM 

IKQRQB 

IKQRQB 

IKQRQB 

IKQRQB 

IKQRQB 

IKQRQB 

IKQRQB 

IKQRQB 

IKQRQB 

IKQRQB 

IKQRQB 

IKQRQB 

IKQRQB 

IKQROB 

IKQRQB 

IKQGPT, IKQRQB 

IKQRQB 

IKQRQB, IKQUPG 

IKQRQB 

IKQRQB 

IKQRQB 

IKQRQB 

IKQRQB 

IKQAIX, IKQGPT, IKQIOA, IKQIOC, IKQRQB 
IKQAIX, IKQERH, IKQGPT, IKQUPG 
IKQAIX, IKQERH, IKQGCI, IKQGPT, IKQUPD, IKQUPG 
IKQRQB, IKQRTV, IKQSRG, IKQUPG, IKQVSM 
IKQGPT, IKQSRT 

IKQSRT, IKQUPG 

IKQKRD 


IKQCASOO, IKQCIL, IKQCISOO, IKQDDR, IKQEDX, IKQEOV, IKQIXEO0O, 
IKQURN, IKQNCAOO, IKQNEX, IKQPFOOO, IKQRBA, IKQRCLOO, 
IKQRQB, IKQRQC, IKQRRP, IKQUPG, IKQVSM 


IKQNEX 
IKQEDX, IKQIOA, IKQIOC 


IKQCASOO, IKQCIR, IKQCISOO, IKQEDX, IKQIOA, lIOQIOC, IKQIXE00, 
IKQJRN, IKQNCAOO, IKQNEX, IKQPFOOO, IKQRQB, IKQRQC, 
IKQRRP, IKQSPMOO, IKQVSM 


IKQBFAOO, IKQBFCOO, IKQIOB, IKQMDY 
IKQBFAOO, IKQBFCOO, IKQCIR, IKQSRG 


IKQEDX, IKQIXE00, IKQNCAOO, IKQNEX, IKQPFOOO, IKQRBA, 
IKQRRP 





Figure 6.6 Record Management internal error code-to-module relationship 
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Module 


IKQJRN, IKQSRG 

IKQSRG 

IKQGPT 

IKQAIX 

IKQUPG 

IKQBFAOO, IKQRQB, IKQRQC 
IKQDDR 

IKQEOV 

IKQBFCOO 

IKQBFCOO 

IKQGCI, IKQBFCOO, IKQSPM0O 
IKQBNXO0, IKQIOB 

IKQIOA, IKQIOB 

IKQIOA, IKQIOB, IKQIOD 
IKQIOB 

IKQIOB 

IKQIOB 





Figure 6.6 Record Management internal error code-to-module relationship 
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Service Aids 


Service aid phases are available for: 


e Enabling and disabling snap dumps within the VSAM component. 


e¢ Obtaining snap dumps of control blocks. 


e Using UPSI 


to obtain diagnostic information for the VSAM catalog. 


¢ Maintaining DSCBs in the VTOC and VOL] labels on DASD. 
e Loading a VSAM phase or a program you have written. 
The service aid phases IKQVDUMP and $$BCVS03 are included in the 


link-edit of VSAM. The other three phases, IKQVEDA, IKQVDU, and 
$$BCVS04 can be placed in the core image library by executing the follow- 


ing job. 
// JOB 
// OPTION 


INCLUDE 
* 


// EXEC 
/& 


Enabling and Disabling Snap Dumps 


JOBNAME 
CATAL 
IKQCLNLK 


LNKEDT , REAL 


The following snap points are available in VSAM. Each snap ID, if enabled 
with IKQVEDA, will produce the result indicated. If VSAM is running in 
the SVA, it must be reloaded from the core image library after the snap 
dump has been enabled in order to activate the snap, except for 
SNAP=0010 which takes effect immediately. 


Snap number 


0001 


0002 


0003 


0004 
0005 
0006 


0007 


0008 


0009 
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Result of Enabling this Snap 

This snap allows Catalog Management diagnostic informa- 
tion to be obtained. (See section “Using UPSI to obtain 
Diagnostic Information for the VSAM Catalog” for de- 
tails.) 

As snap 0001 uses the UPSI byte, it cannot be run when the 
user program in the partition also uses the UPSI byte. 

This snap enables the Buffer Manager trace, which provides 
the current usage of VSAM buffering. 


This snap enables the CLOSE control block dump at the 
beginning of CLOSE processing. 


This snap enables the VSAM I/O trace facility. 
This snap enables the I/O error trace. 


This snap enables the OPEN control block dump facility 
when open processing is complete. 


This snap enables the OPEN error trace. Control blocks are 
printed if an error occurs during open processing. 


This snap enables the Catalog Management I/O trace. All 
I/O operations done by catalog management are printed on 
SYSLST. 


This snap enables the VSAM Record Management error 
handler trace, allowing display of control blocks for any 
error detected by VSAM record management. 
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0010 This snap enables automatic close. VSAM is shipped with 
this snap enabled. To disable automatic close, disable this 
snap. 

0011 This support enables the managed-SAM control block 
trace. Refer to “VSE/VSAM Space Management for SAM 
Feature Logic” for further information. 


IKQVEDA is called by: 
// EXEC IKQVEDA 
The routine will print on SYSLOG: 
ENTER FUNCTION ENABLE|DISABLE| END 


You must enter either: 
ENABLE SNAP=xxxx 
(where xxxx is one of the snap numbers) 


or 
DISABLE SNAP=xxxx 

or 
END (to terminate processing). 

The program will look for a private core image library and print: 
NO PRIVATE CORE IMAGE LIBRARY ASSIGNED 


if it cannot be found and will then look in the core image library for the 
VSAM phase needed. 


If the phase needed cannot be found in a library the program will inform 
you with the following message: 

phase NOT FOUND IN THE SYSTEM PRIVATE 

CORE IMAGE LIBRARY (where phase is the actual phase name) 


Any error in input will result in the INVALID REPLY message and the 
ENTER FUNCTION message is reissued. 


Entering ENABLE SNAP=0011 in a system without the VSE/VSAM Space 
Management for SAM Feature installed results in an INVALID REPLY 
message. 


The program can only be ended by the END reply as noted earlier. 


The following examples illustrate the use of IKQVEDA to enable and 
disable SNAP 0001: 
// EXEC IKQVEDA 

ENTER FUNCTION ENABLE|DISABLE| END 
ENABLE SNAP=0001 
NO PRIVATE CORE IMAGE LIBRARY ASSIGNED 
SNAP 0001 ENABLED 
ENTER FUNCTION ENABLE|DISABLE| END 
DISABLE SNAP=0001 
NO PRIVATE CORE IMAGE LIBRARY ASSIGNED 
SNAP 0001 DISABLED 
ENTER FUNCTION ENABLE|DISABLE| END 
END 


Obtaining Snap Dumps of Control Blocks 
IKQVDUMFP enables you to print out snap dumps of record management 
and catalog control blocks. Code is provided at certain points in VSAM 
modules which is nonoperational so far as normal execution of the modules 
is concerned. Refer to “Enabling and Disabling Snap Dumps,” above. 


IKQVDUMP is called by the following sequence of instructions (see also 
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“Loading a VSAM phase or a Program You Have Written”): 


LA 1,PARMLIST 
SVC 2 
PARMLIST DC CL8'$$BCVSO03! B transient 
DC CL8 ' IKQVDUMP phase that provides dump 


of control blocks 
When the program has completed processing, $$BCVS03 returns the pro- 
gram to the instruction immediately following the SVC instruction. | 


Note that IKQVDUMP requires SYSLST to be assigned to a printer; 
assigment to disk or tape will result in an error. 


Figure 6.7 shows the description and format of the parameter list that 
follows the two phase names in the above calling sequence. 
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Offset - Bytes and 
Dec Hex Bit Pattern Field Name Description 


6.22 


Figure 6.7 
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PARMSW1 
PARMAMBL 
PARMACB 
PARMAMDS 
PARMARDB 
PARMBCB 
PARMBUFE 
PARMEDB 
PARMLPMB 


PARMSW2 
PARMCCW 
PARMPLH 
PARMBHD 
PARMRPL 
PARMEXCP 
PARMCAT 
PARMDATA 
PARMTHB 


PARMSW3 
PARMOPEN 
PARMCLOS 
PARMCIW 
PARMVLST 
PARMREGS 


PARMCECL 


PARMODLB 
PARMREQR 


PARMSW4 
PARMPAMB 


PARMCCAA 


PARMRTNA 
PARMHDID 


PARMAMBA 
PARMID 
PARMIDLN 
PARMIDAD 


PARMSW5 
PARMCCA 
PARMCADL 
PARMCADP 
PARMCARA 
PARMCPL 
PARMPLDN 
PARMPLNN 
PARMPLPW 


First byte of parameter list 
Dump the AMBL 

Dump the ACB 

Dump the AMDSB 

Dump the ARDB 

Dump the BCB 

Dump the buffer 

Dump the EDB 

Dump the LPMB 


Second byte of parameter list 
Dump the CCW 

Dump the PLH 

Dump the BHD 

Dump the RPL 

Dump the EXCPAD work area 
Dump the catalog blocks 
Dump the non-catalog blocks 
Dump the THB 


Third byte of parameter list 

Dump the open work area 

Dump the close work area 

Dump the control interval split area 
Dump the volume list 

Dump the registers 

Dump the control interval exclusive 
control list 

Dump the open DLBL 

Dump the requester’s registers 


Fourth byte of parameter list 

1=Pointer to start dump is in parameter 
list (PARMAMBA) 

O=Pointer to start dump is in register 11 
1 =Pointer to CCA 

O=Pointer to AMBL 

Call the test routine 

Dump the header ID 

Available 

Pointer to start dump 

Pointer to header 

Length of the header 

Address of the ID 

Fifth byte of parameter list 

Dump the CCA 

Dump the CCA DLBL 

Dump the CCA DADSM parameter list 
Dump the CCA record areas 

Dump the catalog parameter list (CTGPL) 
Dump the CTGPL data set name 

Dump the CTGPL new name. 

Dump the CTGPL password 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern Field Name 


PARMSW6 
PARMPLCN 
PARMPLCI 
PARMPLDL 
PARMPLWA 
PARMCFL 


PARMFLFD 
PARMFLFN 


PARMSW7 
PARMCFV 


PARMFVDL 
PARMFVEN 
PARMFVKR 
PARMFVVL 
PARMDPDL 
PARMDPIO 


PARMDPWA 


PARMSW8 
PARMDPSV 


PARMCBS 
PARMCAXW 
PARMCXRL 
PARMCXDR 


PARMCMSW 
PARMMSAM 


PARMRTNN 


Description 


Sixth byte of parameter list 

Dump the CTGPL catalog name 

Dump the CTGPL control interval number 
Dump the CTGPL file CTGDDNM field 
Dump the CTGPL work area 

Dump the catalog field parameter list 
(CTGFL) 

Dump the CTGFL fields 

Dump the CTGEFL field name 

Available 


Seventh byte of the parameter list 
Dump the catalog field vector table 
(CTGFV) 

Dump the CTGFV file name 

Dump the CTGFV entry name 

Dump the CTGFV key range list 
Dump the CTGFV volume serial list 
Dump the DADSM parameter list DLBL 
Dump the DADSM parameter list |/O 
area 

Dump the DADSM parameter list work 
area 


Eighth byte of parameter list 

Dump the DADSM parameter list save 
1/O area 

Dump the AMCBS 

Dump the CAXWA 

Dump the CAXWA RPL 

Dump the CAXWA VTOC label read-in 
work area (DRWA) 

Dump the CMS work area 

Dump the managed SAM control blocks 
Available 


Name of test routine 





Figure 6.7 IKQVDUMP parameter list description and format (part 2 of 2) 


Testing if a Dump is Required 
IKQVDUMP allows a phase to be called before a dump is taken to see if a 
dump is desired. (The name of the test routine must be inserted into the 
parameter list at field name PARMRTNN.) The phase can use any logic to 
determine whether a dump is needed, and this logic will override a call for a 
dump if it is not needed. Ifa 0 is returned in register 15, the dump will be 
taken; if register 15 holds a nonzero return, the dump will not be taken. 


The registers on entry to the test routine have the following contents: 


R2 = Pointer to the parameter list 
R11 = Caller’s register 11 

R13 = Pointer to 18-word save area 
R14 = Return address of calling phase 
R15 = Address of entry point 


Using UPSI to Obtain Diagnostic Information for the VSAM Catalog 


Manipulation of the UPSI job control statement enables you to screen 
catalog return codes and obtain a snap dump, cancel a job (which causes a 
full dump to be taken), or simply continue processing. You must first use 
IKQVEDA to enable Snap = 0001. Otherwise the UPSI statement will be 
inoperative. As snap 0001 uses the UPSI byte, it cannot be run when the 
user program in the partition also uses the UPSI byte. 
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The purpose of this service aid is to diagnose catalog errors that occur while 
running any program that causes the VSAM catalog to execute. Typically 
this would be an Access Method Services module or a record management 
program you have written. 


The // UPSI nnnnnnnn job control statement must precede the // EXEC 
[progname] statement. If no UPSI statement is included, the default is 
// UPSI 00000000 (see type 3 request below). 


On exit from catalog management after processing, a message will be print- 
ed out depending on the type of UPSI bit setting you have selected. Some 
messages require a reply from the operator. The return codes in the message 
are obtained from register 15. The format is: 


** NNN,MN,RRR,FEFF ,CCCCCCCCCCCCCCCC 


where 
NNN is the return code in decimal 
MN are the last two characters of the module name which issued the 
error. This is blank in case of error code 0. 
RRR is the reason code in decimal 
FFFF is one of the following catalog management functions that had 
been processed: 


DEFC (define catalog) 

DEFA (define non-VSAM data set) 
DEFS (define space) 

DEF (define VSAM data set) 
ALT (alter) 

DELC (delete catalog) 

DELS (delete space) 

DEL (delete VSAM or non-VSAM data set) 
LSTC (list catalog) 

UPD (update or update-extend) 
LOC (locate) 


C...C is either the control interval number in decimal or the first 16 
characters of the data set name or volume serial number in EBCDIC. 


If a reply is required from the system operator for certain types of requests, 
the operator must enter one of the following replies from the system console: 


e Type in SNAP to get a snap dump by means of IKQVDUMP (see 
IKQVEDA for enabling snap dumps). The message will then be repeated 
and the operator should press the END key to continue processing. 


e Type in CANCEL to cancel the job and obtain a full partition dump. 
e Press the END key to resume processing. 


The following paragraphs describe the four types of UPSI settings you can 
use to elicit a message and/or to determine the degree of return code screen- 
ing done: 


Type 1 UPSI Setting. If you want to obtain an operator message for all 
VSAM catalog return codes (including 0), you must include one of the 
following statements: 


// UPSI 11000000 Noreply is required from the operator 
// UPSI 01100000 A reply is required from the operator 


Type 2 UPSI Setting. An operator message is issued only if the return code 
is not 0 for the following statements: 
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// UPSI 10000000 Noreply is required from the operator 
// UPSI 01000000 A reply is required from the operator 


Type 3 UPSI Setting. An operator message is not issued if one of the follow- 
ing conditions exists: 


1. the Access Method Services command being processed was a LISTCAT 
and the return code is 8, or 

2. the return code is 0, 40, 68, or 160 

(these codes occur during normal processing and are, therefore, excluded). 


If neither of these conditions exists, an operator message is issued for the 
following statements: 


// UPSI 00000000 Noreply is required from the operator 
// UPSI 01110000 No feply is required from the operator 


Type 4 UPSI Setting. If you want an operator message on a specific return 
code, you must include the following statements: 


// UPSI OOnnnnnn nnnnnn is set to the value, in binary, of the code 
divided by 4. A reply is required from the operator 


Maintaining VTOC and VOLI Labels on DASD 
A VSAM DADSM service aid has been provided to assist the programmer 
and operator in maintaining the VTOC and VOL] labels on DASD devices. 


The following procedures should be followed to use IKQVDU at the system 
console for such maintenance. The key difference in the three procedures is 
the presence, or absence, of a // UPSI job control statement. Steps of the 
procedure in lower case letters are typed in at the console; steps in upper 
case letters are printed out. 


Procedure 1 Explanation 
// assgn sys000,x'cuu' cuu points at the volume you want 
(press END key) to use. 
// upsi 1 This job control statement is option- 
(press END key) al. If it is included, the following 
events take place on the volume that 
was assigned to SYS000: 
¢ The VSAM volume ownership bit 
and CRA pointer in the F4 
VTOC label are reset. 


e The entire VTOC is scratched, 
that is, empty VTOC labels are 
written over existing Fl, F2, and 
F3 labels, with the exception of 
labels that have names starting 
with the characters “DOS.” or 
“PAGE”. 


e An operator authorization 
prompt is issued if the VTOC la- 
bel to be scratched is security 
protected. 
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// exec ikqvdu,size=auto 


(press END key) 


Procedure 2 


// assgn sys000,x'cuu' 


(press END key) 


// upsi 11 
(press END key) 


// exec ikqvdu,size=auto 


(press END key) 


Procedure 3 


// assgn sys000,x'cuu' 


(press END key) 


// exec ikqvdu,size=30k 
(press END key) 


SPECIFY FUNCTION OR REPLY 
'?' FOR OPTIONS READY 


? 


(press END key) 


Start execution of the IKQVDU 
phase 


Explanation 


cuu points at the volume you want 
to use. 


This job control statement is option- 
al. If it is included, the following 
events take place on the volume that 
was assigned to SYS000: 


e The VSAM volume ownership bit 
and CRA pointer in the F4 label 
are reset. 


e The entire VTOC is scratched, 
that is, FO labels are written over 
existing F1, F2, and F3 labels, 
with the exception of labels that 
have names starting with the 
characters “DOS.” or “PAGE” 


Start execution of the IKQVDU 
phase. 


Explanation 


cuu points at the volume you want 
to use. 


Start execution of the IKQVDU 
phase. 


The character ? causes a list of the 
various functions that IKQVDU 
performs to be printed out at the 
system console. | 


SET THE VOLUME OWNERSHIP FLAG REPLY 'SET OWNERSHIP' 

SET THE CRA POINTER REPLY 'SET OWNERSHIP' 

RESET THE VOLUME OWNERSHIP FLAG AND CRA POINTER REPLY 
"RESET OWNERSHIP' OR 'RESET CRA' 

SET THE SECURITY FLAG IN A F1 LABEL REPLY 'SET 
SECURITY' 

RESET THE SECURITY FLAG IN A F1 LABEL REPLY ‘RESET 
SECURITY' 

REMOVE A LABEL FROM THE VTOC REPLY ‘SCRATCH’ 

RENAME A LABEL REPLY 'RENAME' 

ALLOCATE A LABEL REPLY 'ALLOCATE' 

REINITIATE PROCESSING REPLY 'RESTART' 

ALTER OR DISPLAY A DASD VOL1 LABEL 


REPLY 'CLIP LABEL=SER=N..N' OR ‘CLIP LABEL=DISPLAY' 


TO 


TERMINATE PROCESSING REPLY ‘END’ 


READY 
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You can avoid printing out this list of functions simply by specifying the function 


you wish as follows: 


Procedure 


set ownership 


(press END key) 


reset CRA or 
reset ownership 


set security 


(press END key) 


reset security 


(press END key) 


scratch dsn=dsname 


(press END key) 


scratch vtoc 


(press END key) 


rename 


(press END key) 
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Explanation 


Causes the VSAM ownership bit to 
be set in the F4 VTOC label and op- 
tionally allows the user to set the 
CRA pointer.. 


Causes the VSAM ownership bit 
and CRA pointer to be reset in the 
F4 VTOC label. 


Causes the security bit to be set in 
the Fl VTOC label. 


When the console responds with 
ENTER DSN, reply with the data 
set name of the VTOC label to be 
modified. 


Causes the security bit in the F] la- 
bel to be reset. 


When the console responds with 
ENTER DSN, reply with the data 
set name of the VTOC label to be 


modified. 


Causes the VTOC label with the 
specified data set name to be 
scratched. 


Causes the entire VTOC to be 
scratched with the exception of data 
set names starting with the charac- 
ters “DOS.” and “PAGE”. In addi- 
tion, an operator-authorization 
prompt will be issued if the VTOC 
label is security-protected or de- 
scribes a catalog. 


Causes the DSNAME portion of the 
Fl VTOC label to be changed. 


When the console responds with 
ENTER OLD DSN, reply with the 
data set name of the VTOC label to 
be changed. Be sure to enter the 
correct OLD DSN. No error check- 
ing is performed in case an invalid 
name is specified 


When the console responds with 
ENTER NEW DSN, reply with the 
new data set name. 
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allocate Causes a new label to be created and 
(press END key) written in the VTOC. In order to 
utilize this function, a 
DLBL/EXTENT job control state- 
ment must be provided. 


When the console responds with 
ENTER FILENAME, reply with 
the same filename as that in the 
DLBL statement referred to above. 


When the console responds with 
ENTER NEW DSN, reply with the 
data set name of the data set to be 
created. 


When the console responds with DO 
YOU WISH TO SECURITY PRO- 
TECT THIS DATA SET? reply 
YES or NO. A reply of YES causes 
the data security bit to be set in the 
Fl VTOC label. A reply of NO 
causes the data security bit to be re- 


set. 
restart Causes processing to be reinitiated ° 


(press END key) with a READY prompt. This key- 
word can be used as a response to 
any operator prompt. 


clip label=display Causes the volume serial number to 
(press END key) be displayed on the system console. 
clip label=ser=n..n Causes the existing volume serial 
(press END key) number to be changed to the one 
specified as n..n. 
end Causes processing to terminate. 
(press END key) 


If an error occurs during execution of IKQVDU, 
*#ERROR** DADSM RETURN CODE IS nnn 


prints out on the system console. The following shows the message code 
(nnn), the associated message, and the action required to correct the condi- 
tion. 


Example: 
*#* ERROR** DADSM RETURN CODE IS 020 VTOC FULL 
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004 I/O ERROR WHILE READING VOLUME LABEL 
Action: if the problem was not caused by a hardware error, restore the 
volume. 


008 VOLUME NOT MOUNTED 
Action: Mount the correct volume. 


012 I/O ERROR ON VTOC 
Action: If the problem was not caused by a hardware error, restore the 
volume. 


016 DUPLICATE NAME ON VOLUME 
Action: Choose another filename or scratch the original file from the 
volume. If duplication is due to key ranges, ensure each UNIQUE key 
range is on a separate volume. 


020 VTOC FULL 
Action: Delete any non-VSAM files or VSAM data spaces no longer 
needed from the volume to make additional Format | labels available, 
or reinitialize the volume with a larger VTOC. 


024 EXTENT OVERLAPS EXPIRED FILE 
Action: Examine the VTOC listing to determine where the overlap 
occurred. Correct the EXTENT statement causing the error. To delete 
the expired file, open a DTF using the same file-ID as that of the 
expired file, and instruct the operator to reply DELETE to message 
4n33A when it is issued. 


028 EXTENT OVERLAPS UNEXPIRED FILE 
Action: Compare the high and low extent limits on the EXTENT 
statement or LSERV output with the file or data space limits on the 
VTOC display. If the extents overlap, correct the EXTENT statement 
in error. 


032 EXTENT OVERLAPS PROTECTED UNEXPIRED FILE 
Action: Examine the VTOC to determine where the overlap occurred. 
Correct the EXTENT statement causing the error. If necessary, use 
another volume. 


036 EXTENT OVERLAPS VTOC 
Action: Execute LVTOC. The Format 4 label (the first label in the 
VTOC display) contains the extent limits of the VTOC. Ifthe program 
being executed uses a temporary label set and overlaps the VTOC, 
correct the EXTENT statements that overlap. If the job uses standard 
or partition standard labels, use the LSERV output to correct the 
extents of the overlapping file, VSAM data space, or UNIQUE VSAM 
file. Then rebuild the appropriate label tracks. 


040 REQUIRED EXTENTS MISSING 
Action: If temporary labels were used, match the extents on the 
incoming EXTENT card with the extents in the LYTOC output. If 
standard (permanent) labels were used, match the extents in the 
LSERV output with those in the LVTOC output. 

044 LABEL NOT FOUND 
Action: Use the LVTOC output to check for all file labels used in 
OPEN macros. If the file has been destroyed, it was probably due to 
deletion of overlapping extents on an unexpired file, and the file must 
be rebuilt. 
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048 INVALID LABEL ADDRESS 
Action: Examine the VTOC for a label having an invalid forward 
chain pointer, and delete it. If no invalid labels are found, just rerun 
the job. 


056 EXTENT OVERLAPS PROTECTED EXPIRED FILE 
Action: Examine the VTOC listing to determine where the overlap 
occurred. Correct the EXTENT statement causing the error. If it is 
not necessary to save the expired file, open a DTF using the same 
file-ID as that of the expired file, and instruct the operator to reply 
DELETE to message 4n33A when it is issued. 

064 GETVIS FAILURE ENCOUNTERED 
Action: Allocate GETVIS area. If VSAM is running in the SVA, 
re-IPL and specify a new value for SET SVA. If VSAM is running in a 
partition, rerun the job in a larger partition. 

072 CDLOAD FAILURE ENCOUNTERED 
Action: Either the CDLOAD directory or the GETVIS area is full. 
Allocate more space. 

080 OVERLAP AMONG NEW EXTENTS 
Action: If DLBL and EXTENT statements are included in the pro- 
gram, determine the conflicting extents and correct them. If a standard 
label set is being used, use the LSERV output to locate and correct the 
conflicting file extents, and rebuild the standard label tracks. 

088 FORMAT 4 LABEL NOT FOUND 
Action: Reinitialize the VTOC to create a format-4 label. 

092 VOL1 LABEL NOT FOUND 
Action: Reinitialize the volume to create a VOL label. 

096 JIB PROCESSING FAILURE 
Action: Rerun the job when more JIBs are available. 


Loading a VSAM Phase or a Program You Have Written 
If you want to load and transfer control to and from a selected VSAM phase 
or a program you have written, you can use B-transient $$BCVS03 without 
destroying any registers in the following calling sequence: 


LA 1,PARMLIST 
SVC 2 
PARMLIST DC CL8'$$BCVS03' B transient 
* RTNNAME DC CL8 'XXXXXXXX' Name of phase or program 
you have written 
USERLIST DC Parameter list for phase 
‘ "XXXXXXXX' 


When control is received by ‘XXXXXXXX’, the registers have the following 


contents: 
RO = Address of a work area (the size of the work area is specified 
by a halfword at offset 4 of “XXXXXXXX’ phase) 
Rl = Pointer to user’s parameter list (USERLIST) 
R2-13 = Remain the same as they were when SVC 2 was issued 
R14 == Return address of calling module 
R15 = Address of entry point in ‘XKXXXXXXX 


Control is returned from ‘XXXXXXXX’ by a BR 14 instruction. 
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Definitions of Terms Used In This Book 


Access Method Services. A multifunction service program 
that defines VSAM data sets and allocates space for them, con- 
verts indexed sequential data sets to key-sequenced data sets 
with indexes, modified data-set attributes in the catalog, recog- 
nizes data sets, facilitates data portability between operating 
systems, creates backup copies of data sets and indexes, helps 
make inaccessible data sets accessible, and lists data-set records 
and catalog entries. 


address direct access. The retrieval or storage of a data re- 
cord identified by its RBA (relative byte address) independent 
of the record’s location relative to the previously retrieved or 
stored record. (See also keyed direct access, addressed sequen- 
tial access, and keyed sequential access.) 


addressed sequential access. The retrieval or storage of a 
data record in its entry (RBA) sequence relative to the previous- 
ly retrieved or stored record. (See also keyed sequential access, 
addressed direct access, and keyed direct access.) 


allocation chain (AC). All allocation units containing control 
blocks for the same ACB. 


allocation unit (AU). One or more pages of virtual storage 
containing control blocks referenced by record management. 


alternate index. A collection of index entries, related to a give 
base cluster and organized by a key other than the prime key of 
the associated base data records. Its function is to provide an 
alternate means of locating records in the data portion of the 
base cluster. 


alternate index upgrade. The process of reflecting changes 
made to a base cluster in its associated alternate index(es). (See 
also upgrade set.) 


alternate key. A key, other than the prime key, used to form 
an alternate index. 


application. As used in this publication, the use to which an 
access method is put or the end result that it serves; contrasted to 
the internal operation of the access method. 


backward processing. A variation of sequential processing, 
whereby the previous, rather than the next, record in the entry, 
key, or relative-record sequence is retrieved. 


base catalog record. The first catalog record (control interval) 
that describes the VSAM object. This record contains the 
object’s data set name, cluster name, or volume serial number in 
the ENTNAME field. This record also contains the header 
fields required for the object. The base catalog record can con- 
tain group occurrence pointers that point to group occurrences 
in the base catalog record, or that point to group occurrences in 
extension records (vertical extension). The base catalog record’s 
extension pointer can point to a control interval that continues 
the information (group occurrence pointers) contained in the 
base catalog record (horizontal extension). 


base cluster. A key-sequenced or entry-sequenced data set 
over which one or more alternate indexes are built. 
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buffer steal. The removal of a buffer from one string (PLH) so 
it can be used by another string. 


candidate volume. A direct-access storage volume that has 
been defined in a VSAM catalog as a VSAM volume; VSAM 
can automatically allocate space on this volume, as needed. (See 
also overflow volume.) 


catalog. (See VSAM catalog.) 


cluster. A combination of related VSAM data sets, identified 
by one name in the VSAM catalog, that is, a key-sequenced data 
set and its index or an entry-sequenced data set alone. 


collating sequence. An ordering assigned to a set of items, 
such that any two sets in that assigned order can be collated. As 
used in this publication, the order defined by the System/370 
8-bit code for alphabetic, numeric, and special characters. 


component. As used in this manual, a group of modules that 
perform a function, such as Open. 


compression. (See key compression.) 


control area. A group of control intervals used as a unit for 
formatting a data set before adding records to it. Also, in a 
key-sequenced data set, the set of control intervals pointed to by 
a sequence-set index record; used by VSAM for distributing free 
space and for placing a sequence-set index record adjacent to its 
data. 


control-area split. The movement of the contents of some of 
the control intervals in a control area to a newly created control 
area, to facilitate the insertion or lengthening of a data record 
when there are no remaining free control intervals in the origi- 
nal control area. 


controlinterval. A fixed-length area of direct-access storage 
in which VSAM stores records and distributes free space. It is 
the unit of information transmitted to or from direct-access 
storage by VSAM, independent of blocksize. 


control interval access. The retrieval or storage of the con- 
tents of a control interval. 


control-interval split. The movement of some of the stored 
records in a control interval to a free contro! interval, to facili- 
tate the insertion or lengthening of a record that won’t fit in the 
original control interval. 


CRA. Catalog recovery area. An entry-sequenced data set 
which exists on each volume owned by a recoverable catalog, 
including the catalog volume itself. The CRA contains records 
which describe the volume and the data sets on the volume. 


dataintegrity. Preservation of data or programs for their 
intended purpose. As used in this publication, the safety of data 
from inadvertent destruction or alteration. 


datarecord. A collection of items of information from the 
standpoint of its use in an application and not from the stand- 
point of the manner in which it is stored (see also stored record). 


data security. Prevention of access to or use of data or pro- 
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grams without authorization. As used in this publication, the 
safety of data from unauthorized use, theft, or purposeful de- 
struction. 


dataset. The major unit of data storage and retrieval in the 
operating system, consisting of data in a prescribed arrangement 
and described by control information to which the system has 
access, As used in this publication, a collection of fixed- or 
variable-length records in direct-access storage, arranged by 
VSAM in key sequence or in entry sequence. (See also key- 
sequenced data set and entry-sequenced data set.) 


data space. A storage area defined in the volume table of 
contents of a direct-access volume for the exclusive use of 
VSAM to store data sets, indexes, and catalogs. 


direct access. The retrieval or storage of data by a reference to 
its location in a data set rather than relative to the previously 
retrieved or stored data. Direct access is equivalent to ISAM 
random access. (See also addressed direct access and keyed 
direct access.) 


distributed free space. Space reserved within the control 
intervals of a key-sequenced data set for inserting new records 
into the data set in key sequence; also, whole control intervals 
reserved in a control area for the same purpose. 


dynamic storage area (DSA). A block of storage set aside on 
entry to open/close which may be suballocated to provide for 
temporary storage requirements of individual modules. 


entry-sequence. The order in which data records are physical- 
ly arranged in direct-access storage, without respect to their 
contents. (Contrast to key sequence.) 


entry-sequenced data set. A data set whose records are loaded 
without respect to their contents, and whose relative byte ad- 
dresses cannot change. Records are retrieved and stored by. 
addressed access, and new records are added at the end of the 
data set. 


exclusive control. (See hold.) 


extension record. The continuation of a catalog record that 
contains group occurrence pointers and their group occurrences. 
Group occurrence pointers in an extension record always point 
to group occurrences within the extension record. The extension 
record’s extension pointer can point to a control interval that 
contains part of a group occurrence too large to fit in the exten- 
sion record (horizontal extension). 


extent. A continuous space allocated on a direct-access storage 
volume, reserved for a particular data space or data set. 


external procedure. A procedure that can be called by any 
other VSAM procedure; a procedure whose name is in the 
module’s (assembler listing) ‘external symbol! dictionary.” 


field. Ina record or a control block, a specified area used for a 
particular category of data or control information. 


file. (See data set.) 


fixed block architecture (FBA). A direct access storage device 
that supports a fixed, 512-byte physical record size. The count- 
erpart, count-key-data (CKD) device, permits variable record 
sizes. 


free space. (See distributed free space.) 
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free space percentage. (See packing factor.) 


generic key. A high-order portion of a key, containing charac- 
ters that identify those records that are significant for a certain 
application. For example, it might be desirable to retrieve all 
records whose keys begin with the generic key AB, regardless of 
the full key values. 


group code. A code that identifies the type of group occur- 
rence. (See Field Name Dictionary for a list of group codes.) 


group occurrence. Related fields of information in catalog 
records. See “Group Occurrences in Catalog Records” in the 
“Data Areas” section for further details. 


group occurrence pointer. A field used to identify and locate 
a group occurrence by its displacement from the beginning of 
the record’s group occurrences (the group occurrence is in the 
same control interval as the group occurrence pointer) or by a 
control interval number (the group occurrence point is in the 
base catalog record or its extension and the group occurrence is 
in an extension record). Group occurrence pointers are grouped 
by type code and are in ascending sequence by sequence num- 
ber. 


high-used RBA. The next byte past the end of the last control 
interval containing significant data, for ESDA; otherwise, the 
RBA at which the last SEOF is written. 


high-water RBA. The high-used RBA of a data set. 


hold. Exclusive control exercised over data or index during an 
update, erase, or insert operation to prevent another request 
from making interim changes between initiation and completion 
of the original request. 


horizontal extension. An extension record pointed to by a 
catalog record’s extension field. (See also vertical extension.) 


horizontal pointer. A pointer in a sequence set index record 
that gives the location of the next index record in the same 
sequence set; used for keyed sequential access. 


index. As used in this publication, an ordered collection of 
pairs, each consisting of a key and a pointer, used by VSAM to 
sequence and locate the records of a key-sequenced data set; 
organized in levels of index records. (See also index level, index 
set and sequence set.) 


index entry. A key and a pointer paired together, where the 
key is the highest key (in compressed form) entered in an index 
record in the next lower level or contained in a data record ina 
control interval, and the pointer gives the location of that index 
record or control interval. 


index level. A set of index records that order and give the 
location of records in the next lower level or of control intervals 
in the data set that it controls. 


index record. A collection of index entries that are retrieved 
and stored as a group. (Contrast to data record.) 


index replication. The use of an entire track of direct-access 
storage to contain as many copies of a single index record as 
possible; reduces rotational delay. 


index set. The set of index levels above the sequence set. The 
index set and the sequence set together comprise the index. 
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integrity. (See data integrity.) 


internal procedure. A procedure that can be called only by 
another procedure within the module. (See also external proce- 
dure.) 


1/O threshold. The maximum number of buffers that can be 
filled with data before I/O will be started. 


ISAM interface. A set of routines that allow a processing 
program coded to use ISAM (Indexed Sequential Access Me- 
thod) to gain access to a VSAM key-sequenced data set. 


job catalog. A catalog made available for a job by means of 
the filename IJSYSUC in the corresponding DLBL job state- 
ment. 


key. One or more characters within an item of data that are 
used to identify it or control its use. As used in this publication, 
one or more consecutive characters taken from a data record, 
used to identify the record and establish its order with respect to 
other records. (See also key field and generic key.) 


key compression. The elimination of characters from the front 
and the back of a key that VSAM does not need to distinguish 
the key from the preceding or following key in an index record; 
reduces storage space for an index. 


key-field. A field located in the same position in each record of 
a data set, whose contents are used for the key of the record. 


key-sequence. The collating sequence of data records, deter- 
mined by the value of the key field in each of the data records. 
May be the same as, or different from, the entry sequence of the 
records. 


key-sequenced data set. A data set whose records are loaded 
in key sequence and controlled by an index. Records are re- 
trieved and stored by keyed access or by addressed access, and 
new records are inserted in the data set in key sequence by 
means of distributed free space. Relative byte addresses of 
records can change. 


keyed direct access, The retrieval or storage of a data record 
by use of either an index that related the record’s key to its 
relative location in the data set, or a relative-record number, 
independent of the record’s location relative to the previously 
retrieved or stored record. (See also addressed direct access, 
keyed sequential access, and addressed sequential access.) 


keyed sequential access. The retrieval or storage of a data 
record in its key or relative-record sequence relative to the previ- 
ously retrieved or stored record, as defined by the sequence set 
of an index. (See also addressed sequential access, keyed direct 
access, and addressed direct access.) 


LOCK wait. A wait for the release of a named resource that is 
locked by another VSE task, using the LOCK macro. 


mass sequential insertion. A technique VSAM uses for keyed 
sequential insertion of two or more records in sequence into a 
collating position in a data set; more efficient than inserting 
each record directly. 


master catalog. The main VSAM catalog, that contains exten- 
sive data set and volume information required by VSAM to be 
able to locate data sets to allocate and deallocate storage space, 
to verify the authorization of a program or operator to gain 
access to a data set, and to accumulate usage statistics. (See also 
job catalog, user catalog.) 
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max-CA. A unit of allocation equivalent to the maximum 
control area size on a count-key-data or fixed block device. On a 
CKD device, the max-CA is equal to one cylinder. 


min-CA. A unit of allocation equivalent to the minimum con- 
trol area size on a count-key-data or fixed block device. On a 
CKD device, the min-CA is equal to one track. 


module. As used in this manual, a program unit that is identifi- 
able by means of a symbolic name starting with IGGO or IKQ. 


nonunique. Space for a nonunique data set or index must be a 
suballocation from existing data spaces. 


object. As used in this manual, a cluster, a data set, an index, a 
catalog, or a data space. 


overflow volume. When space on a candidate volume is allo- 
cated by VSAM, that volume is then termed an overflow vol- 
ume. (See also candidate volume.) 


overlapped operation. An operation in which processing 
continues without waiting for completion of input or output 
which had been initiated. 


packing factor. Percentage of the data object’s space alloca- 
tion to be reserved during its initial loading and during subse- 
quent reorganization. (See also distributed free space.) 


password. A unique string of characters stored in a catalog 
that a program, a computer operator, or a terminal user must 
supply to meet security requirements before a program gains 
access to a data set. 


physical record. The smallest readable or writable unit of data 
that is stored on a direct-access storage device. Records are 
separated from each other by interrecord gaps. 


piggy-back I/O. One buffer is used for both writing and read- 
ing the same channel program. The buffer contents are written 
out, and then data is read into the buffer in the same I/O opera- 
tion. 


pointer. An address or other indication of location. For exam- 
ple, an RBA is a pointer that gives the relative location of a data 
record or a control interval in the data set to which it belongs. 
(See also horizontal pointer and vertical pointer.) 


portability. The ability to use VSAM data sets with different 
operating systems. Volumes whose data sets are cataloged in a 
user catalog can be demounted from storage devices of one 
system, moved to another system, and mounted on storage 
devices of that system. Individual data sets can be transported 
between operating systems using Access Method Services. 


prime index. The index of a key-sequenced data set which is a 
base cluster, and thus has one or more alternate indexes. (See 
also index, alternate index.) 


prime key. The key which is used to form the prime index. 
(See also key, alternate key.) 


procedure. A functional unit of VSAM code that is entered 
only at one entry point and exits at the end of the procedure (the 
last line of the procedure’s code). The procedure can call 
(transfer control, with a return to the procedure expected) other 
procedures within the module (internal calls) and can call other 
procedures in other VSAM modules (external calls). (See also 
internal procedure and external procedure.) 
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pseudo hold. For SHAREOPTIONS(4), a second hold on the 
same control area by a single VSE task, under a single ACB (or 
both hold requests under the same Local Shared Resource pool). 
The control area is treated as held by the second request, as well 
as the first. If the second request encounters an actual conflict 
with the first request, then the second request will receive an 
“exclusive control conflict” return code (X‘08’ in register 15, 
X‘14’ in the RPL feedback). 


‘random access. (See direct access.) 


RBA. Relative byte address. The displacement of a data rcord 
or a control interval from the beginning of the data set to which 
it belongs; independent of the manner in which the data set is 
stored. 


record. (See index record, data record, physical record, stored 
record.) 


recoverable catalog. A catalog defined with the recoverable 
attribute. Duplicate catalog entries are stored in CRAs, and can 
be used to recover data in the event of a catalog failure. (See 
also CRA.) 


recovery mode. A user option that causes the data object’s 
initial allocation of space to be written throughout with special 
records, the last of which is set to 0 and is termed the SEOF 
(software end of file) record. This must be done if VERIFY is to 
be used. (See also speed mode.) 


relative byte address. (See RBA.) 


relative-record data set. A data set whose records are loaded 
into fixed-length slots and numbered by the relative numbers of 
the slots they occupy. 


relative-record number. A number that identifies not only the 
slot, or data space, in a relative-record data set but also the 
record occupying the slot. Used as a key for keyed access to a 
relative-record data set. 


relative repetition number. An integer representing the posi- 
tion of a particular field in a group of repeating fields. For 
example, in EOV, the relative repetition number (RELREPNO) 
of a particular volume in the catalog data record of a particular 
cluster is that number of its occurrence in the volume repeating 
group. EOV uses the RELREPNO to obtain information about 
a particular volume in order to update the ARDB and EDB. 


replication. (See index replication.) 


reusable data set. A VSAM data set which can be reused as a 
work data set, regardless of its old contents. 


routine. As used in this manual, an ordered set of instructions 
that may have frequent use, generally internal usage within a 
module. 


fi 


scratch (adj.). Used to describe the contents of a buffer that 
are no longer valid. 


scratch (v.). In buffer management, used to indicate that a 
buffer contains nothing of significance; in DADSM, to remove a 
DSCB. 


section. A subdivision of an index record used to expedite 
location of the place in an index record where an entry-by-entry 
key search can begin. 
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security. (See data security.) 
SEOF. (See software end of file.) 


sequence set. The lowest level of the index of a key-sequenced 
data set; it gives the locations of the control intervals in the data 
set and orders them by the key sequence of the data records they 
contain. The sequence set and the index set together comprise 
the index. 


sequential access. The retrieval or storage of a data record in 
either its entry sequence, its key sequence, or its relative-record 
number sequence relative to the previously retrieved or stored 
record. (See also addressed sequential access and keyed sequen- 
tial access.) 


skip sequential access. Keyed sequential retrieval or storage 
of records in ascending, non-consecutive sequence (with skips); 
VSAM scans the sequence set to find a record or a collating 
position. 


slot. A fixed-length, numbered space in a relative-record data 
set which accepts one data record. (See also relative-record data 
set, relative-record number.) 


software end of file. A control interval with a CIDF of 0 that 
marks the end of preformatted records in a data object’s initial 
allocation of space when the user specifies recovery mode of 
processing. (See also recovery mode.) 


spanned record. A logical record whose length exceeds the 
control interval size and thus crosses, or spans, one or more 
control interval boundaries within a single control area. 


stored record. A data record, together with its control inform- — 
ation, as stored in a direct-access storage device. 


string. A string is a single record or a sequentially ordered set 
of records in a data set. The maximum number of strings 
(STRNO) to be processed concurrently in a data set is estab- 
lished when a data set is opened. The number of active RPLs 
determines the number of concurrent strings being processed at 
any point in time. 


string-set. Set of strings that are in communication with each 
other. For normal processing, this is the set of active RPLs 
referring to the same ACB. For Local Shared Resources, this is 
the set of all active RPLs using the Local Shared Resource pool. 


unique. (1) A unique data space is occuplied by only one 
VSAM data set, and cannot be shared with other data sets. (2) A 
unique alternate key is one which occurs in only one data record 
in the base cluster. The alternate index record containing this 
key thus has only one pointer to the base cluster. 


upgrade set. All the alternate indexes that VSAM has been 
instructed to update whenever there is a change to the data of 
the related base cluster. 


user catalog. An optional catalog used in the same way as the 
master catalog and pointed to by the master catalog. It lessens 
the contention for the master catalog and facilitates volume 
portability. 


vertical extension. An extension record pointed to by a group 
occurrence pointer in the object’s base catalog record or its 
horizontal extension. (See also base catalog record and horizon- 
tal extension.) 
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vertical pointer. A pointer in an index record of a given level 
that gives the location of an index record in the next lower level 
or the location of a control interval in the data set controlled by 
the index. 


VSAM catalog. A key-sequenced data set containing exten- 
sive data-set and volume information that VSAM requires to 
locate data sets, to allocate and deallocate storage space, to 
verify authorization of a program or operator to gain access toa 
data set, and to accumulate usage statistics for data sets. (See 
also master catalog, job catalog, user catalog.) 
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This index lists the modules by their descriptive 
names, followed by their symbolic names. The 
symbolic names, together with further information 
about the modules, can be found in the module 
directory in the Directory chapter. 


$$B message routine (IIPBMRO0) Vol. | 
$$BOVSOIL Vol. | 


abbreviations xi 
ACB (Access Method Control Block) 5.16 
Access Method Block List (AMBL) 5.13 
Access Method Control Block (ACB) 5.16 
Access Method Control Block Structure (AMCBS) Vol. | 
Access Method Data Statistics Block (AMDSB) 5.22 
Access Method Define the File Table (AMDTF) Vol. | 
acronyms xi 
add group occurrence (modify) (IGGOCLAW) Vol. | 
Address Range Definition Block (ARDB) 5.27 
AIX (see alternate index) 
allocate data spaces (IKQALLO0) Vol. | 
alter 
catalog field (IGGOCLAX) Vol. | 
catalog, remove volume processing (IGGOCLBN) Vol. | 
CMS, 4th module (IGGOCLCD) Vol. | 
processing, catalog (IGGOCLBD) Vol. | 
volume processing (IGGOCLBE) Vol. | 
alternate index (AIX) 
base cluster control block structure 5.6 
catalog record Vol. | 
clean up (IKQCLOCL) Vol. 1 
define (IGGOCLCA) Vol. 1 
delete (IGGOCLBG) Vol. | 
description Vol. | 
evaluation (IKQCLOVY) Vol. | 
record Vol. | 
routine (IKQAIX) 4.6 
Upgrade routine (IKQUPG) 4.7 
upgrade set determination (IDQOPNUS) Vol. | 
alternate index initialization (IKQOPNAI) Vol. | 
AMBL (Access Method Block List) 5.13 
AMCBS (Access Method Control Block Structure) Vol. | 
AMDSSB (Access Method Data Statistics Block) 5.22 
AMDSSB group occurrence Vol. | 
AMDTF (Access Method Define the File table) Vol. 1 
AMDTF (control block) (IIPAMT00) Vol. 1 
ARDB (Address Range Definition Block) 5.27 
association group occurrence Vol. | 
attach data set to Resource Pool (IKQOPNRP) Vol. | 
authorization, check (IGGOCLBM) Vol. | 
automatic close ($$BACLOS) Vol. | 


base cluster to alternate index control 
block structure 5.12 
BCB (Buffer Control Block) 5.29 
BHD (Buffer Header) 5.33 _ 
bit mask handler, suballocate (IGGOCLBR) Vol. 1 
BKPHD (Block Pool Header) 5.32 
BLDVRP (IQKBRP) Vol. | 
BLDVRP Parameter List (BVRPPL) Vol. 1 
block dump (IKQDUMP) 4.6 
Block Pool Header (BKPHD) 5,32 
block-to-track translation (IGGOCLEX) Vol. 1 
BSPH (Buffer Subpool Header) 5.34 
buffer management 3.18 
buffer 
control block (BCB) 5.29 
do I/O (IKQBFA) 4.6 
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FREEBUFF (IKQBFA) 4.6 
get next (IKQGNX00) 4.6 
GETBUFF (IKQBFA) 4.6 
header (BHD) 5.33 
manager (IKQBFA00) 4.6 
manager, LSR (IKQBFB) 4.6 
purge (IKQPBF) 4.7 
read-ahead (IKQBFA) 4.6 
scratch buffer (IKQBFA) 4.6 
scratch buffer (IKQBFB) 4.6 
subpool header (BSPH) 5.34 
writing (IKQBFB) 4.6 
build AMDSB (IKQOPNAB) Vol. | 
build 
a new control block-GENCB (IKQGEN) Vol. | 
JIB ($$BOVS03) Vol. | 
RDF (IKQBLD) 4.6 
VSAM Resource Pool-BLDVRP (IKQBRP) Vol. | 
VTOC labels (IKQPOPO00) Vol. | 
BVRPPL (BLDVRP Parameter List) Vol. | 


catalog I/O subfunctions (IGGOCLEG) Vol. | 
catalog management procedures cross reference Vol. | 
catalog records 
copies of in CRA Vol. | 
formats Vol. | 
group occurrences in 
(see group occurrences) 
retrieve (IGGOCLAH) Vol. 1 
types Vol. | 
catalog recovery area (CRA) 
copies of catalog records in Vol. | 
define 
Ist module (IGGOCLCR) Vol. t 
2nd module (IGGOCLCS) Vol. | 
description Vol. | 
open (IGGOCLCD) Vol. 1 
self describing part of Vol. | 
catalog/DASDM interface to mount 
volume ($$BOVSO01) Vol. | 
catalog 
alter 
processing (IGGOCLBD) Vol. 1 
remove volume processing (IGGOCLBN) Vol. | 
auxiliary work area (CAXWA) Vol. | 
communications area (CCA) Vol. | 
control blocks, dump (IKQDUMPC) 4.6 
control record (CCR) Vol. | 
define space (IGGOCLAQ) Vol. ! 
definition processing (IGGOCLAS) Vol. | 
delete (IGGOCLAF) Vol. 1 
description Vol. | 
dictionary Vol. 1 
display (IKQSCAT) Vol. | 
driver (IGGOCLAB) Vol. | 
field 
alter (IGGOCLAX) Vol. | 
extract (IGGOCLAZ) Vol. | 
modify (IGGOCLAV) Vol. 1 
first load (IGGOCLC9) Vol. 1 
high key range of Vol. 1 
I/O subfunctions (IGGOCLAG) Vol. 1 
I/O subroutine, 2nd load (IGGOCLCG) Vol. | 
locate (IGGOCLAZ) Vol. | 
low key range of Vol. | 
modify (IGGOCLAV) Vol. 1 
parameter list (CTGPL) Vol. 1 
parts of (figure) Vol. | 
read/write F4 VTOC labels (IGGOCLBU) Vol. 1 
records (see catalog records) 
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recovery area (see catalog recovery area) 
search (IGGOCLAH) Vol. | 
self-describing part of Vol. | 
SHOWCAT (IKQSCAT) Vol. | 
suballocate (IGGOCLAR) Vol. | 
update (IGGOCLAYV) Vol. | 
update (IKQRBA) 4.7 
update for sharing (IKQRBA) 4.7 
update-extend (IGGOCLBB) Vol. | 
user 
description Vol. | 
module (IKQOPNUC) Vol. | 
CAXWA (Catalog Auxiliary Work Area) Vol. I 
CCA (Catalog Communication Area) Vol. 1 
save area Vol. | 
CCB (Command Control Block) (see IORB) 
CCW (Channel Command Word) 5.35 
CCW Skeleton DSECT (CWS) 5.36 
CCW Skeletons 5.38 
Channel Command Word (CCW) 5.35 
check authorization (IGGOCLBM) Vol. | 
CI split duplicate data recovery (IKQDDR) 4.6 
CI split for load mode (IKQCIL) 4.6 
CI split for non-load (IKQCIU) 4.6 
CIDF (Control Interval Definition Field) 5.2 
CILOAD (IKQCIS00) 4.6 
CINSRT (IKQCIS00) 4.6 
CINTRY (IKQCIS00) 4.6 
CISPL2 (IKQCIS00) 4.6 
CIW (Control Interval Work Area) 5.42 
clean up 
after open failure (IKQOPNDO) Vol. | 
alternate index (IKQCLOCL) Vol. | 
define (IGGOCLA8) Vol. | 
close 
automatic ($§$BACLOS) Vol. | 
catalog interface function (IKQCLCAT) 4.6 
interface ($$BCVSAM) Vol. | 
ISAM interface program (IIPCLS00) Vol. 1 
record management (IKQRCLO00) 4.7 
work area Vol. | 
CLOSE Vol. t 
close disposition processing (IKQCLRDD) Vol. | 
close function (IKQCLO) Vol. | 
Cluster 
alternate index control block structure 5.6 
define (IGGOCLAL) Vol. 1 
switch to next (IKQOPNNC) Vol. | 
cluster catalog record Vol. | 
CMS 
alter, 4th module (IGGOCLCD) Vol. | 
define 
Ist module (IGGOCLAL) Vol. 1 
2nd module (IGGOCLAN) Vol. | 
3rd module (IGGOCLAP) Vol. | 
4th module (IGGOCLBX) Vol. | 
5th module (IGGOCLBY) Vol. | 
6th module (IGGOCLCY) Vol. | 
define space (IGGOCLFQ) Vol. 1 
define space (part 1) (IGGOCLAQ) Vol. | 
define space (part 2) (IGGOCLA6) Vol. | 
delete (IGGOCLCX) Vol. | 
delete (part 2) (IGGOCLA7) Vol.1 
delete space (Ist module) (IGGOCLBL) Vol. 1 
delete space (2nd module ) (IGGOCLCL) Vol. | 
driver (IGGOCLAT) Vol. | 
combination names in field name dictionary Vol. | 
example (figure) Vol. | 
Command Control Block (CCB) (see IORB) 
common exit ($$BCVS02) Vol. | 
complete define of an entry (IGGOCLAK) Vol. | 
component index 4.4 
console file, DTF (IKQDCN) Vol. | 
control area 
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description 5.4 

format data (IKQPFOO00) 4.7 
get new (IKQNCA00) 4.7 
split IKQCAS00) 3.14, 4.6 


control block structure 


base cluster to alternate index 5.12 
multiple string 5.11 


control block 


directory 4,9 

generate a new (IKQGEN) Vol. 1 
manipulation macros Vol. | 

modify, display or test (IKQTMS) Vol. | 
structures 5.11 


control blocks, description and format 


ACB 5.16 
AMBL 5.13 
AMCBS Vol. | 
AMDSB 5,22 
AMDTF Vol. 1 
ARDB 5,27 
BCB 5.29 

BHD 5.33 
BKPHD 5.32 
BSPH 5.34 
BVRPPL Vol. | 
CAXWA Vol. | 
CCA Vol. I 
CCB (see IORB) 
CCW 5.35 
CCW skeletons 5.38 
CIW 5.42 

close work area Vol. | 
CTGFL Vol. | 
CTGFV Vol. 1 
CTGPL Vol. | 
CWS 5.36 
DADSM Parameter List Vol. | 
DDRW 5.46 
DTFIS Vol. 1 
EDB 5.47 
EXCPAD Parameter List 5.49 
EXLST 5.50 
FCDB 5.51 
FXL 5.53 
IOARG 5.54 
IODRB 5.55 
IORB 5,56 
IOWKA 5.58 
LPMB 5.59 
OAL Vol. 1 
OPNWA Vol. | 
PLH 5.60 
RPHD 5.72 
RPL 5.69 
RSCB 5.73 
SHRW 5.52 
THB 5.74 

USB 5.76 
VSRT Vol. | 


control interval 


definition field (CIDF) 5.2 
description 5.1 . 
format index (IKQPFO00) 4.7 
scan (IKQSCN) 4.7 

space reclamation (IKQCIR) 4.6 
split (IKQCISO0) 3.12, 4.6 

work area (CIW) 5.24 


control record (CCR) Vol. | 
CPL (see also CTGPL) Vol. 1 


scan (IGGOCLAY) Vol. 1 


CRA (see catalog recovery area) 
CTGFL (Field Parameter List) Vol. 1 
CTGFV (Field Vector Table) Vol. | 
CTGPL (Catalog Parameter List) Vol. 1 
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CWS (CCW Skeleton DSECT) 5.36 


DADSM Parameter List Vol. 1 
allocate data spaces (IKQALLO0) Vol. | 
build VTOC labels (IKQPOP00) Vol. | 
parameter list Vol. | 
read VTOC labels (IKQRDS00) Vol. | 
rename (IKQRENOO) Vol. | 
scratch VTOC labels (IKQSCRO0) Vol. | 
VTOC (IKQVTCO00) Vol. ! 
write VTOC labels (IKQWDS00) Vol. | 
data and index entries, define and build (IGGOCLAJ) Vol. | 
data areas 
alternate index 5.10 and Vol. | 
catalog Vol. | 
catalog recovery area Vol. | 
control blocks 5.13 
directory 4.9 
index 5.5 
data catalog record Vol. | 
data control area, format (IKQPFO00) 4.7 
data set 
control area 5.4 
control interval 
definition field 5.2 
description and format 5.1 
description 5.1 
directory entry group occurrence Vol. 1 
information in catalog, locate (IKQOPNHC) Vol. | 
information, derived Vol. | 
nonVSAM, define (IGGOCLBH) Vol. 1 
record 
definition field 5.2 
description and format 5.1 
rename (IKQRENO0) Vol. | 
reset reusable (IKQOPNRD) Vol. | 
data space 
allocate (IKQALLO0) Vol. | 
define (IGGOCLAQ) Vol. | 
delete (IGGOCLBL) Vol. | 
group occurrence Vol. | 
information, derived Vol. | 
DDRW (Duplicate Data Recovery Work Area) 5.46 
dedicate VSAM volume label processing 
(part 1) (IGGOCLFD) Vol. | 
dedicate VSAM volume label processing 
(part 2) (IGGOCLFE) Vol. | 
define 
alternate index (IGGOCLCA) Vol. 1 
and build data and index entries (IGGOCLAJ) Vol. | 
catalog open and build (IGGOCLAE) Vol. 1 
clean up (IGGOCLA8) Vol. | 
CMS 
Ist module (IGGOCLAL) Vol. | 
2nd module (IGGOCLAN) Vol. | 
3rd module (IGGOCLAP) Vol. | 
4th module (IGGOCLBX) Vol. | 
5th module (IGGOCLBY) Vol. | 
6th module (IGGOCLCY) Vol. 1 
CRA 
Ist module (IGGOCLCR) Vol. | 
2nd module (IGGOCLCS) Vol. t 
non-VSAM data set (IGGOCLBH) Vol. | 
of an entry, complete (IGGOCLAK) Vol. | 
path (IGGOCLCP) Vol. | 
space recovery (IGGOCLB8) Vol. | 
space, catalog (IGGOCLAQ) Vol. | 
space, part 2(CMS) (IGGOCLA6) Vol. | 
the file indexed sequential table (DTFIS) Vol. | 
definition processing, VSAM catalog (IGGOCLA6) Vol. | 
delete 
(IGGOCLBG) Vol. | 
AIX (IGGOCLBG) Vol. | 
catalog (IGGOCLAF) Vol. | 
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CMS (IGGOCLCX) Vol. | 
part 2, CMS (IGGOCLA7) Vol. | 
path (IGGOCLBG) Vol. 1 
space (IGGOCLBL) Vol. | 
space, CMS 2nd module (IGGOCLCL) Vol. 1 
VSAM Resource Pool-DLVRP (IKQDRP) Vol. | 
delete /build JIBs for VSAM ($$BOVSO03) Vol. 1 
delete/insert (modify) (IGGOCLBW) Vol. | 
deleted CRA, mark ($$BCLCRA) Vol. | 
derived data set information Vol. | 
derived data space information Vol. | 
device name table (IKQDNT) Vol. 1 
device type routine (IKQVDTPE) Vol. | 
diagnostic aids 6.1 
CCA save area Vol. | 
enable and disable (IKQVEDA) 4.7 
1/O routine for ($$BCVS04) Vol. | 
error code-to-module relationships 
catalog management Vol. | 
CLOSE and TCLOSE Vol. | 
control block manipulation 6.14 
DADSM Vol. | 
OPEN Vol. | 
record management 6.14 
error-to-module relationships 
BLDVRP and DLVRP Vol. | 
SHOWCAT Vol. | 
macro-to-module relationships 
catalog and DADSM Vol. | 
IIP, CBM, open/close, and service aids Vol. | 
record management and EOV 6.8 
diagnostic information, using UPSI to obtain 6.23 
directories 
component index 4.4 
control block 4.9 
IIP phase-to-module index Vol. | 
module 4.5 
routine 4.8 
VSAM phase-to-module index 4.1 
disabling snap dumps 6.19 
display a control block (SHOWCB) (IKQTMS) Vol. | 
display catalog information (SHOWCAT) (IKQSCAT) Vol. | 
DLVRP (IKQDRP) Vol. | 
do primary allocation for dynamic data set (IKQOPNDS) Vol. 
driver 
catalog (IGGOCLAB) Vol. | 
CMS (IGGOCLAT) Vol. | 
VSAM request (IKQVSM) 4.7 
DSA CLOSE interface function (IKQCLIF) 4.6 and Vol. | 
DSCBs (see VTOC labels) 
DTF console file (IKQDCN) Vol. | 
DTFIS (Define The File Indexed Sequential table) Vol. | 
dump 
block (IKQDUMP) 4.6 
catalog control blocks (IKQDUMPC) 4.6 
snap 
disabling 6.19 
enabling 6.19 
obtaining 6.20 
testing if required 6.23 
Duplicate Data Recovery Work Area (DDRW) 5.46 


EDB (extent definition block) 5.47 
chain, summarize JIBs for(IKQJIBSM) 4.7 
extend (IKQEDX) 4.6 
enable and disable VSAM diagnostic aids (IKQVEDA) 4.7 
enabling snap dumps 6.19 
end of message interface ($$BODADE) 4.7 
enter index (IKQIXE) 4.7 
entry 
field name dictionary Vol. | 
index 5.8 and Vol. | 
point directory 4.8 
section 5.8 and Vol. | 
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translation, volume (IGGOCLBS) Vol. | 
ERASE (IKQMDY) 3.15, 4.7 
error 
exit (IKQERX) 4.6 
handler (IKQERH) 4.6 
error code-to-module relationships 
BLDVRP Vol. | 
catalog management Vol. | 
CLOSE and TCLOSE Vol. | 
control block manipulation 6.14 
DADSM Vol. | 
DLVRP Vol. | 
OPEN Vol. 1 
record management 6.14 
SHOWCAT Vol. 1 
evaluation, AIX (IKQCLOVY) Vol. | 
EXCPAD parameter list 5.49 
exit 
common ($$BCVS02) Vol. | 
error (IKQERX) 4.6 
JRNAD (IKQJRN) 4.7 
list (EXLST) 5.50 
extend EDB (IKQEDX) 4.6 
extension catalog record Vol. | 
extent 
blocks (see JIBs) 
definition block (see EDB) 
get new (IKQNEX) 4.7 
manage space within (IKQSPMO00) 4.7 
open volume (IKQOPNOV) Vol. | 
extract catalog field (IGGOCLAZ) Vol. | 
extract volume information from default 
model (IGGOCLFC) Vol. | 


FBA I/O manager (IKQIOC) 4.6 
FCDB (field control and data block) 5.51 
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